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PREFACE 



Work on STRESS began in the Fall of 1962 under the direction of Pro- 
fessor S. J. Fenves of the University of Illinois, who was a visiting mem- 
ber of the M.l. T. faculty during the year 1962-1963. The project staff 
included Professor R. D. Logcher, Professor S. P. Mauch, Mr. K. F. 
Reinschmidt, and Mr. R. L. Wang. In the Fall of 1963 the project was 
placed under the general supervision of Professor J. M* Biggs with 
Professors Logcher and Mauch directly in charge of the programming 
effort. During the ensuing period important contributions were made to 
the debugging of the system by Professor Z. M. Elias, Mr. R. V. Good- 
man, Miss S. C. Finkelstein, Mr. S. G. Mazzotta, Mr. J. R. Roy, and 
Mr. A. C. Singhal. 

The STRESS project has been partially supported from a major grant 
for the improvement of engineering education made to M.I. T. by the 
Ford Foundation. Additional support was provided by Project MAC, an 
M.I. T. research program, sponsored by the Advanced Research Project 
Agency, Department of Defense, under Office of Naval Research, Con- 
tract No. Nonr-4l02(0 I). Reproduction in whole or in part is permitted 
for any purpose of the U. S. Government. The work was done in part at 
the M.I. T. Computation Center, and the aid and support of the Center 
and its personnel are gratefully acknowledged. 

Although the STRESS processor has been extensively tested by M. I. T. 
personnel, no warranty is made regarding the accuracy and reliability 
of the program and no responsibility is assumed by M.I. T. in this con- 
nection. 

S. J. Fenves 
R. D. Logcher 
January 1965 S. P. Mauch 
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STRESS: A Reference Manual 



INTRODUCTION 



STRESS (STRuctural Engineering System Solver) is a program- 
ming system for the solution of structural engineering problems 
on digital computers. This manual contains the description of 
the STRESS processor system as presently (April 1964) imple- 
mented on the IBM 7094 computer at the M. I. T. Computation 
Center. The purpose of the manual is to provide the information 
necessary for the implementation of the STRESS processor on 
other computer systems, and for the inclusion of additional capa- 
bilities in processors already implemented. 

This manual serves as a complement to STRESS: A User's 
Manual, 1 A thorough familiarity with the User's Manual is recom- 
mended before attempting to implement or expand the system. 

It is assumed that the person planning to implement or change 
the system is an experienced FORTRAN programmer. Knowledge 
of assembly language programming and monitor operation will be 
helpful in implementing STRESS for special monitors and other 
machines. 

One of the primary objectives in the development of the STRESS 
system has been the ease of expansion and modification of the sys- 
tem,, Expansions can be accomplished by the incorporation of 
additional input statements and corresponding subroutines, so that 
the system can be dynamically maintained with components added, 
modified, or replaced to reflect the individual requirements of a 
particular organization. It has been intended that such changes 
need not require the services of experienced systems program- 
mers but can be readily accomplished by programmers now en- 
gaged in the development and maintenance of conventional special- 
purpose programs. 

This manual consists of seven chapters. Chapter 1 contains a 
general description of the system in terms of the organization of 
the processor and usage of memory. Chapter 2 describes in 
detail the dynamic memory allocation algorithm used by the sys- 
tem. The method of input translation is discussed in Chapter 3. 



] S. J. Fenves, R. D Logcher, S. P. Mauch, and K„ F. 
Reinschmidt, STRESS: A User's Manual, The M„ I. T„ Press, 
Cambridge, Mass. , 1964. 



2 Introduction 

The general method of indeterminate analysis is described in 
Chapter 4„ Chapter 5 gives the function of all parameters and 
arrays in the system,, Chapter 6 describes the complete sys- 
tem as currently implemented„ Finally, in Chapter 7 guidelines 
and examples are presented for the incorporation of possible 
additional components of the system. 



Chapter 1 



GENERAL DESCRIPTION OF SYSTEM 



This chapter gives an introductory description of the STRESS 
processor system necessary for the understanding of the details 
described in the succeeding chapters,. Specific aspects covered 
are the organization of the system, the internal functioning of the 
processor, the use of memory by the system, and the method of 
storing data. 



lo 1 Organization of the System 

The organization of the STRESS Language, described in the 
User's Manual , reflects one of the initial specifications set by 
the authors, namely, that the language used should closely re- 
semble the accepted terminology of structural engineering,. The 
organization of the system, that is, the processor which acts on 
the input statements to produce the specified results, was dic- 
tated by two additional specifications: first, that the system be 
highly flexible in order to handle the widest possible range of 
structural problems; and second, that the system be easily under- 
stood, so that modifications on the system could be easily per- 
formed by persons who are not primarily systems programmers. 
Only experience in actual use will determine how successfully 
these specifications have been met. 

With the last of these specifications in mind, the most widely 
available programming language, namely, FORTRAN II, has been 
used almost exclusively in the development of the system, even 
where considerably greater sophistication could have been achieved 
through symbolic programming. Symbolic coding has been re- 
stricted primarily to a function subprogram used for input de- 
coding, and to the subroutines dealing with dynamic memory allo- 
cation,, It is believed that these subroutines need not be changed 
for any IBM 709-7090-7094 system. However, they must be re- 
programmed for any computer that differs from the 7094 in word 
format or length, internal representation of alphanumeric charac- 
ters, or access to secondary storage (tapes or disks), and for 
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use with any other compiler,, 

In planning the STRESS system, the authors have intended to re- 
strict themselves to the development portion alone, and to leave 
the implementation of the system for particular machine and mon- 
itor requirements to interested outside parties,. This decision is 
reflected in the organization of the system and the contents of this 
manual in two ways 

First, the system as described in this manual was not intended 
to be ready to run on any arbitrary large-scale digital computer. 
The system was written for the particular equipment configuration 
directly available to the authors, namely, the IBM 7094 computer 
at the Mo I. T. Computation Center operating under the MIT-FMS 
monitor. The system does not possess the general flexibility in 
terms of interaction with a monitor, tape units assignments, etc , 
that would be necessary for a fully implemented system. Provi- 
sions have been made for certain flexibility, but such provisions 
were not considered a primary objective in the development. 

Second, the system described in this manual is the end product 
of the development phase, and no attempt has been made to "clean 
up" the programs. As a consequence, the program listings con- 
tain certain inconsistencies in nomenclature, as well as a few 
logical branches, calling parameters, etc. , which have become 
obsolete, but which have not been removed. Finally, there are 
many provisions for potential extensions of the system that are 
not currently implemented. 

This manual should therefore be considered essentially a prog- 
ress report on the current status of the project. The authors in- 
tend to continue developing the system, and hope that interested 
organizations will do the same, 



1.2 Processor Organization 

As presently implemented, STRESS contains the core of a com- 
prehensive system for the solution of structural engineering prob- 
lems, and there is ample room for the development of compo- 
nents which precede, parallel, or follow those presently in the 
system. The capabilities and limitations of the present version 
of STRESS are described in Chapter 1 of the User 1 s Manual . 

The general flow of the process will be described in detail in 
Chapter 6. Essentially, the processor consists of three phases: 

I* Phase la performs the input functions, that is, the decoding 
of statements and the storage of parameters, data, and 
logical flags. This phase handles the input both for an ini- 
tial problem description and for modifications on subsequent 
reruns. 
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^" P nase lb performs the editing, diagnostic, and compiling 

functions. 
3„ Phase II performs the actual execution of the operations 

specified or implied by the input statements. 

Phase la is terminated after a SOLVE or SOLVE THIS PART 
statement is decoded. This statement also initiates Phase Ib 
If the diagnostic of Phase lb is successful, Phase II is automati- 
cally initiated. Upon completion of Phase II, control again trans- 
fers to Phase Ia« At this point, several possibilities exist, de- 
pending on the order of the statements following the SOLVE THIS 
PART statement: 

1 a FINISH statement terminates processing of a job. The 
system is ready to accept the next job in sequence. 

2 a SELECTIVE OUTPUT and one or more PRINT statements 
cause the output of the data specified by the statements in 
an interpretive fashion,, 

3. a MODIFICATION statement initiates action for the accept- 
ance of modifications to the problem previously analyzed. 

The normal process, then, consists of cyclical alternations of 
Phases la, lb, and II until all the modifications have been proc- 
essed. After the FINISH statement, the system again returns to 
Phase la. Thus, an arbitrary number of separate problems can 
be handled in sequence. 

The internal organization of the processor is built upon the 
CHAIN subroutine of FORTRAN II. Phases la and lb, as well as 
the procedures for handling all normal and error returns from 
Phase II comprise the first link. The various subroutines of the 
execution phase are grouped into the subsequent links according 
to their logical order. Wherever a bifurcation of paths exists, 
the link currently in high-speed storage determines which chain 
link is to be called in nexto The detailed description of the sys- 
tem components making up the various links is given in Chapter 6. 



1,3 Memory Usage 

The usage of memory adopted for the STRESS processor was 
dictated by three considerations: (a) that there should be no arbi- 
trary size limitations on the problems to be solved, (b) that core 
memory be used as efficiently as possible, and (c) that large 
problems be conveniently handled without sacrificing the efficiency 
of solving small problems. 

To illustrate these points, consider the storage of the stiffness 
matrices of the members in the structure. A FORTRAN state- 
ment DIMENSION ST(6,6, 100) would reserve 3600 locations to 
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store the stiffness matrices of 100 space frame members. How- 
ever, if the flexibility method were specified, this storage would 
have to be EQUIVALENCEd to another array, or would be unused. 
Furthermore, if a particular problem were a plane truss, only 4 
of the 36 elements of a matrix would be involved, yet there would 
be no way of using the remaining 32 elements per matrix, or in- 
creasing the number of members that could be handled. Finally, 
if the system were designed primarily for large problems— with, 
say, only one stiffness matrix in high-speed storage at a time — 
smaller problems, which could fit all at once in core, would be 
heavily penalized. 

The dynamic memory allocation algorithm was incorporated in 
the system to overcome these objections. In this scheme, all 
data pertaining to the problem being run are organized into arrays. 
The size of the arrays is completely determined from the input 
data for the problem. In the example just cited, the array of 
stiffness matrices is of size NB*JF*JF, where NB, the number 
of members, is specified by the NUMBER OF MEMBERS state- 
ment, and JF, the number of degrees of freedom, is determined 
from the TYPE statement. 

The entire high- speed memory, with the exception of a small 
area used for parameters and the area occupied by the current 
program link, is considered as a pool available for the storage 
of arrays. Furthermore, the secondary storage (scratch tapes) 
is considered as a logical extension of the high-speed storage. 
Thus, the programmer writing a subroutine only has to define 
the size of the arrays he will generate, allocate the arrays he 
will need at any particular stage, and, prior to returning control 
to the calling program, release the arrays no longer needed. The 
allocation system will insure that all allocated arrays are in core, 
and supply a reference for addressing the elements of an array. 

The dynamic memory allocation system is described in detail 
in Chapter 2. Admittedly, the use of this system removes a 
major programming facility of FORTRAN, that is, direct and 
multiple subscripting of arrays. However, the versatility and 
efficiency gained more than compensate for the small amount of 
additional programming. 

The organization of memory is illustrated schematically in 
Figure 1. l a Two of the areas, "Current Program Link" and 
"Pool," have been described in Sections 1.2 and 1.3. The modi- 
fied CHAIN program used in the system automatically sets the 
address of the bottom of the pool to the location immediately above 
the highest location used by the program link. The four areas at 
the top of memory are 

1. Working area. These 108 locations can be used as working 
storage by the subroutines. In general, no information is 
transmitted through these locations from one subroutine to 
the next. 
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2. System parameters. This area of memory holds all param- 
eters that indicate the status of the system, and that are 
essentially independent of the size and type of problem 
being handled. 

3„ Problem parameters. These parameters completely de- 
scribe the problem being handled, and are used by essen- 
tially all subroutines. 

4 Codewords. These parameters are associated with the data 
arrays described previously,, Each array has an associated 
codeword, which completely describes the status of the 
array. 
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Figure 1.1. Schematic layout of memory. 

The function of all parameters and the makeup of each array 
are described in detail in Chapter 5. 



Chapter 2 



DYNAMIC MEMORY ALLOCATOR 



This chapter describes the memory allocation procedure used 
in the STRESS system. The procedure is designed both to pro- 
vide the flexibility needed in operating on a multitude of data ar- 
rays of varying sizes and to enable the programmer to gain access 
to the arrays with relative ease, 



2. 1 General Features of the Memory Allocator 

The principal features of the memory control scheme are as 
follows: 

lo Only the amount of storage needed for an array is used, 
as specified by the data* 

2. All use of tape is automatic and need not concern the pro- 
grammer, 

3 Tape is used only when memory requirements exceed the 
available core space D 

4. Space used by arrays not needed at any stage during proc- 
essing is automatically available for other use 

In order to have this flexibility, the programmer must accept 
the following disadvantages: 

lo Numerous calls to the memory control routines are needed 
to provide and control arrays. 

2„ Use of reference words is needed to gain access to the ar- 
rays. 

3 Some sacrifice in multiple and automatic subscripting is 
required. 

Memory control consists of automatic arrangement of programs 
and data in primary and secondary storage. The arrangement of 
programs in STRESS is made at development or compilation time 
by lumping series of subroutines into blocks. These blocks are 
called into use under program control. The IBM- FMS CHAIN 
subroutine is used to load program links in core memory, The 
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special data- control routine that has been written for STRESS 
uses in a flexible manner the rest of core for data arrays, 

2. 2 Program Allocation 

All data which are used by more than one subprogram, or are a 
function of problem size, are placed in COMMON storage, that is, 
outside the part of core that contains programs. The core stor- 
age available for data consists of all the space that is not used by 
program. Figure 2. 1 shows the arrangement of core in detail. 
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Figure 2. 1. Core layout. 

Locations to (143) 8 are used by the FORTRAN monitor, as well 
as (77462) 8 to (77777) 8 . Programs are loaded upward from (144) 8 , 
and COMMON storage is allocated downward from (7746l) 8 . It 
should be recalled that FORTRAN II stores arrays downward, 
needing the highest location word address as a reference (base 
address). 

The highest location used by programs, called the program 
break (PRGM BR), is a variable function of the programs in core 
at any particular time. At running time the program blocks are 
brought into core from tape with the CHAIN subroutine. Each 
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chain link is an executable set of programs, with a main program, 
and library subroutines; the chain link is logically terminated 
either with a call to EXIT or to CHAIN for loading another link» 
Parts of core not containing program are not destroyed as a re- 
sult of reading a new program link into core, 

At setup time the program blocks are placed on tape by the 
IBM BSS loader. CHAIN control cards, giving the link number 
and tape drive, delineate the links. All the programs after a 
CHAIN card are loaded into core together with their required 
library routines, thereby satisfying all transfer vector require- 
ments „ The loader then writes two records per link on the tape* 
The first record is for identifying and reading the link, and the 
second is the program itself. The first record contains three 
words: the first word includes the link and tape numbers for 
identification; the second is a data channel instruction for read- 
ing the program link; and the third is the transfer instruction to 
the entry point of the main program. The data- channel instruc- 
tion contains the number of words in the program record, start- 
ing from (143) 8 , and can be used to calculate the program break 
for a link before it is brought into core. The program record is 
an image of core from location (143) 8 to the program break as it 
exists after completion of the loading function,. 

The CHAIN subroutine is used to read a link into core. This 
routine operates in the following manner, It first reads a three- 
word record from the tape and compares the first word with the 
arguments of its calling sequence. If this comparison fails, the 
program record is skipped and the next three- word record checked. 
When the link is found, the other two words are placed into a 
small link- reading program, and this program is moved to the 
portion of core above COMMON, Control is then transferred to 
this reader, which reads in the program link and itself transfers 
control to the entry point of the main program of the link. 

Both the loader and the CHAIN program are designed to use 
only the monitor scratch tapes, B2, B3, and A4, This implies 
that the CHAIN tape would be formed every time a job were to be 
run. This would, however, waste more than 3 minutes of 7094 
time for each run. Forming the tape infrequently and reusing the 
CHAIN tape would therefore become a necessity. Reusing this 
tape on a monitor tape drive might inconvenience or restrict 
usage, so that modifications to the CHAIN subroutine would have 
to be made to enable a tape to be read from another tape drive. 
It was considered feasible to alter the CHAIN subroutine, but not 
the loader. Therefore, the CHAIN tape is formed on one drive 
(A4) using the loader, and it is executed on another drive (A5) 
employing a special version of CHAIN which disregards the tape 
number in the calling sequence when selecting the drive, using 
only the drive designated for execution (A5), A very short starter 
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program, calling CHAIN for the first link, and a copy of the 
special version of CHAIN are sufficient to start execution on 
drive A5. No chain control cards are used with this starter deck. 

Noting the contents of the first word of the identifying record 
on the CHAIN tape, the user must be cautioned in writing his 
calls to the CHAIN program, both within the links and in the 
starter program. The identifying word is formed by the loader 
and therefore contains the drive number on which the link was 
formed (A4). The calls to CHAIN for link N must be CALL 
CHAIN(N,A4) even though another tape drive will be used. 

The dynamic memory allocation routine makes it possible to 
use all available core for data arrays,, A problem exists in as- 
suring that data arrays are not overwritten by program when 
bringing in a link longer than the previous link. There are two 
system parameters set and used by the allocation routines that 
are related to this condition,, These are NT, the bottom of the 
pool for the link in core, and NL, the next location down from the 
top of the pool to be assigned for an array, (See Section 5.2.2.) 
A new value of NT must be found for the new block of programs, 
and this value checked against NL. If the new NT is greater than 
NL, the next link will overlap data. A memory reorganization is 
needed to eliminate the overlap by compacting memory towards 
the top of core. (See Section 2.5.) 

Since a check for overlap of program and data must be done 
before a program link is read into core, and the size of the link 
is not known until its identification record is read into core, this 
check must be performed in the CHAIN subroutine. This modi- 
fication has been added to the subroutine and is needed in all links. 
It is not needed, however, in the starter version since memory 
has not yet been used. 

During debugging reuse of the tape on another drive may not be 
important. By making only the data- overlap modification to 
CHAIN, STRESS will operate using drive A4„ This tape may also 
be restarted with a main program of CALL CHAIN(1, A4), taking 
the subroutine from the library. The subroutine FILES (see Sec- 
tion 2.6) normally uses tapes Bl, B2, B3, and A4 for scratch 
tapes. For this use FILES must then be changed for execution 
with the chain tape on A4, say by changing the scratch tape from 
A4 to A5. 



2. 3 Memory Use for Data 

If a program is to use core memory in a flexible manner so as 
not to restrict the program to a fixed arrangement of memory, 
the programming system must resort to indirect addressing and 
control functions. In the operating programs indirect addressing 
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and control must be done with FORTRAN statements,. It is this 
specification which determines the manner of memory use, 

The control function in FORTRAN can be specified by CALL 
statements to the memory supervisor,, In order to use an array 

the programmer must 

1. Define necessary parameters about an array. 

2 Specify a need for an array,, 

3, Signify completion of the need for an array. 

These operations can be put in any order, so long as there is a 
define operation first. The FORTRAN calls are described in 
Section 2. 4. 

The only means of indirect addressing available with FORTRAN 
is in the use of subscripts. An array position can be specified by 
a subscript referenced to a fixed location (base address). The sub- 
script is understood to refer always to the fixed location, so that 
its use is independent of what preceded or follows its reference. 
This subscript is a variable that is controlled by the STRESS al- 
locator. Its value may change as a result of the memory-control 
process, but its treatment as a variable reference does not alter 
the array referencing. This subscript, however, requires direct 
referencing, so that it must also be assigned to a particular (fixed) 
location. 

In order that individual subprograms be independent of changes 
in memory usage, their references (base addresses) must not 
change location because of additional references in other subpro- 
grams. For this reason the subscript reference is given a fixed 
location independent of other referencing, namely, the top of 
COMMON. A single-subscripted array is given this reference 
(U equivalenced with IU) and any array is referenced by its sub- 
script as belonging to U (or IU for integer quantities). The array 
references are assigned a particular fixed location for each array 
in an area near the top of COMMON which will not be used for the 
arrays themselves. For a newly added array, a reference word 
is* added to the COMMON statements of subsequent subprograms 
and to the list of COMMON usage (see Chapter 5)„ The subscripts 
of U do not start with 1, but with some variable, set by an initia- 
tion CALL START in order to locate all arrays below this fixed- 
assignment location area of COMMON, 

The fixed location area at the top of COMMON is referred to in 
almost all subroutines in the processor. Thus use of this area 
must be consistent. For convenience, the area has been sepa- 
rated into blocks of words with each block containing words used 
for different purposes* It must be noted, however, that these 
are not restrictions on groups of words, since any use can be 
made of a location as long as it is consistent throughout all the 
programs. Figure 2. 1 shows the division of storage. 

The first 108 words are set aside as a working storage for 
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temporary use by small components of the processor „ This area 
can be used, for example, for small multiple- subscripted arrays. 
The COMMON statements correspond to the usage for a particular 
subroutine and are different in other subroutines,, This area does 
not have the same computational meaning in different parts of the 
processor and therefore its value cannot be considered available 
between the parts . 

The remaining fixed locations in COMMON have the same mean- 
ing between the parts, as enumerated in Chapter 5„ Although 
separated into three parts — system parameters, problem param- 
eters, and codewords — intermixing is permissible. The only 
functional difference is that restoration of an initial problem 
specification (reading a MODIFICATION OF FIRST PART state- 
ment) returns the information in the initial problem specification 
to the locations from TOP (77272) 8 to the value of NL at a stage 
near the end of Phase lb. A few system parameters then are not 
restored to the first- part status,, 



2 4 Codewords and Array Words 

Array usage and control involves more than merely a subscript. 
The word layout of FORTRAN II, however, allows the use of the 
reference word for more than just storing subscripts,, Therefore, 
the reference word, designated a codeword, is used to store al- 
most all the information about an array. All FORTRAN sub- 
scripting is performed using only the decrement of the word. All 
computation of subscripts for an array uses only one codeword 
and positive integer constants and variables. The only require- 
ment on the arrangement of the codeword outside the decrement 
would then be that the sign be plus when the codeword is used for 
subscript computations „ 
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Figure 2 e 2„ Codeword schematic 



Each codeword consists of one memory word utilizing the full 
36 bits of the word, and each contains almost all the necessary 
information about the array that it references. Figure 2. 2 
shows the location of the information packed into the codeword. 
The symbols indicate variables set by one or more of the mem- 
ory organization processes,. The letter F is used for subscripting 
and may be altered as a result of the memory- control process. 
The value of F is set by the allocator so that if the codeword is 
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Figure 2 3 Array word schematic. 

added to the subscript of an element in the array the result will 
be the subscript of that element in U or IU The U(F) is the word 
before the start of the array. 

Table 2 1„ Meaning of Memory- Control Variables 



Symbol Word 

N Codeword 

p Codeword 



Codeword 



Bit 
Position 

21-35 



u 



Codeword 


18 


Array word 


s 


Codeword 


19 


Array word 


1 


Codeword 


20 


Array word 


2 


Codeword 


3-17 




2-17 



M Array word 21-35 



Meaning 

Array size, number of storage 
locations 

Position: + when in core 

- when not in core 

(either on tape or not 
yet used) 

Redefinition 

indicator: 1 if array was rede- 
fined while on tape 
if not 

Array content: if data 

1 if codewords 

Release status: + needed 

- released 

Core retention priority: low 

1 high 

Erase status: can be erased 
1 must be saved 

Reference: Location- core (p = +) 
array subscript 
Location-tape (p = -) 
array file number 

Backreference: Address of the 
codeword of as- 
sociated array 

Sub array number: J = corre- 
sponds to code- 
word array 
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For the memory- reorganization process it is necessary to sup- 
ply a referencing from the array to the codeword as well. This 
is termed the backreference and is placed in a word, called the 
array word , at U(F). It exists only for an array in core or, if 
an array has been moved, for a hole in memory. Figure 2. 3 
shows the form of the array word. If M = 0, no backreference 
exists. Then the decrement contains the size of the array that 
was in the hole Thus, for an array of size N, N + 1 words are 
used in core with the array word occupying the highest location, 
U(F), and the I th word, U(F + I). Table 2.1 defines all symbols 
used in the codewords and array words. 

For many types of data, the number of arrays needed is a func- 
tion of the problem size. These arrays are then really subarrays 
of a single array,, All the subarrays together could be considered 
as a single array, but this implies that all subarrays would be in 
core when one of them is needed. This would overly restrict 
capacity o Alternatively, each subarray could be assigned a code- 
word and referenced individually Since the fixed- location area 
of COMMON is not appropriate for this, the codewords for the 
subarrays must themselves constitute an array. This corre- 
sponds to a second level of indirect addressing and is the limit 
provided for with the present allocator 



2 5 Reorganization Process 

As space for arrays are requested by programs using calls to 
the control routines, arrays are placed in sequence down from 
the top of the array data pool (Nl) with NL, the next available 
space, updated each time The symbol NT is the bottom of the 
pooL At the time an array of size N is needed, if NT + N > NL, 
then that array will not fit into core with its present arrangement. 
A memory reorganization must take place in order to fit the ar- 
ray into core. 

The form of reorganization is the simplest consistent with the 
form of data, that is, a compaction of all needed (not released) 
arrays toward the top of the pool. All low- priority arrays not 
needed are put on tape or erased. High-priority arrays will be 
put on tape only if their space is needed to fit the array desired. 
Since the compaction process overwrites the top of the pool, 
it is ordered to proceed from the top of the pool downward, 
dealing with the arrays in the order they exist in core. This 
requires that the reorganization process deal with the arrays 
first and reference the codewords since the codewords are 
altered by the process. The array word provides the refer- 
ence to the codeword and contains information used only for 
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an array in core, namely, the release status s. 

2, 6 Programming with the Allocator 

The FORTRAN CALL statements that are used in the programs 
to control memory can now be described,, For examples we will 
consider two codewords, NAME and MEMB, where NAME refers 
to a single array and MEMB to a group of N arrays, that is, sec- 
ond-level arrays. Because of the integer computations performed, 
all codewords must have FORTRAN integer names. In usage, the 
codeword and the array become synonymous. 

Initialization of the allocator is accomplished with the entry 

CALL START(TN, NCW, NMAX) 

(TN and NMAX are no longer meaningful), where NCW is the num- 
ber of words contained in the fixed- location area, that is, above 
the array data pool. The word START is presently called whenever 
the STRUCTURE statement is translated and NCW is set at 300. 
These 300 words still contain about 60 unused words Initializa- 
tion consists of zeroing the NCW words, which process effec- 
tively zeroes the data pool by destroying references, and setting 
the top (Nl), bottom (NT), and next available location (NL = Nl) 
of the pool. The word NT is set from PRGM BR in location (143) 8 . 
Definition of the array is accomplished with the order, 

CALL DEFINE(NAME, N, r , u, v) 

where NAME is the array name appearing in COMMON 
N is the array size 
r,u, v are either or 1 as defined in Table 2 1. 

If the codeword is zero, this array has not been used before in 
the problem,, For this case, p is set to minus and N, r,u, and v 
are put into the codeword. If the codeword is not zero, one of 
three processes is carried out: If p is minus, q is set to 1 and 
N, r,u, and v are put in the codeword,. If p is plus and N is un- 
changed, r,u, v are put into the codewords. If p is plus and N is 
changed, the array is moved to the current bottom of the pool 
(NL); appropriate references are changed; N, r, u, and v are put 
into the codeword; and the array is either truncated or extended, 
with the extension zeroed,, A single exception is that if the array 
is the bottom array in the pool, it need not be moved. It is im- 
portant to note that redefinition may change F and, since moving 
is a function of NT and NL, may even cause a memory reorganiza- 
tion, changing F in many codewords. 
Array need is specified by the call 

CALL ALOCAT (NAME) 
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If p is minus and F in the codeword NAME is zero, the array has 
not been usedo In this case, space is allocated, the array word 
formed with a plus sign, F placed in the codeword, and the array 
zeroed. If p is plus, the array is in core, so only s in the sign 
of the array word is set to plus If p is minus and F not zero, 
the array is on tape and is automatically brought from tape into 
core and the references established,. If q was not zero, the ar- 
ray is read from tape differently and either truncated or the ex- 
tension zeroedo If there is insufficient space in core for the ar- 
ray, a reorganization takes place before the array is allocated. 

The array is now ready for use in core, To set the I** 1 element 
of the array equal to A or IA, the following statements are re- 
quired: 

IJ=NAME+I 

U(IJ)=A or IU(IJ)=IA { } 

When an array is temporarily or permanently not needed, this 
information can be specified with the call 

CALL RELEAS(NAME) 

or 
CALL RELEAS(NAME,u, v) 

With this call the sign of the array word is set to minus and u and 
v placed in the array word. If u and v are given in the calling 
sequence, the codeword is also updated. 

For second- level arrays, referencing must still be done through 
fixed- location codewords at the first level. Control operations 
must be performed on the first- level or codeword array as well 
as the data subarrays. The variable J indicates the subarray 
number, referenced by the J*- n codeword in the codeword array. 
Operations on the codeword array are indicated by J = 0. The 
corresponding calls are 

CALL DEFINE(MEMB, J, N, r, u, v) 
CALL ALOCAT(MEMB, J) 
CALL RELEAS(MEMB, J) 

or 
CALL RELEAS(MEMB, J, u, v) 

In order to define a subarray MEMB, J, the codeword array 
MEMB, must have been previously defined with N > J and allo - 
cated since the subarray definition operates on the words of the 
codeword array. Note that r = 1 can only be used for J = 0. 

When the codeword array and a desired subarray are in core, 
(allocated), subscript references for the I** 1 element in the J th 
subarray are computed as follows: 

IJ=MEMB+J 

IK=IU(IJ)+I (2.2) 

A=U(IK) or IA=IU(IK) 
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As shown in Statements 2. 1, IJ is the subscript of the word in 
the first- level array, or, in this case, the subscript of the code- 
word for the data array,. The codeword for the J" 1 data array is 
then IU(IJ), so that the second and third of Statements 2 2 become 
equivalent to 2. 1. 

It must be noted that any array allocation or redefinition may 
require a memory reorganization at the time the allocator is 
called. Since F's for all arrays in core change during a reorgan- 
ization, all needed subscripts must be recomputed after a CALL 
ALOCAT or a redefining CALL DEFINE. In other words, sub- 
scripts cannot be carried beyond these call statements. Efficient 
organization can compensate for this restriction. 

Additional restrictions implicit in the memory process are 

1 The entire operation of altering codewords must be done 
only by calls to the allocator routine s e This restriction 
arises from the interrelation of codewords and arrays. A 
codeword, for example, may not be set equal to zero to 
erase an array in core since the codeword is referenced 
during a memory reorganization from the array. 

2. All calls to the allocator routines must reference the code- 
word directly, not a dummy temporary variable., This is 
necessary because the allocator routines alter the code- 
words and need the codeword address from the calling se- 
quence for backreferencing. 

Although a data array might be zeroed by setting each of its 
elements equal to zero, it might also be zeroed as follows: 

CALL DEFINE(NAME, 0, 0,0, 0), 

and if previously released, then, 

CALL ALOCAT(NAME) 

CALL DEFINE(NAME, N, 0, 0, 1) 

Redefinition for an array on tape involves changing the codeword 
and placing the flag q used for reading the array into core, If 
the array is on tape, the second of two successive redefinitions 
overwrites the first, which therefore has no explicit effect on the 
array elements,, If the array is in core, both redefinitions pro- 
vide for explicit actions, the first truncating the array, the second 
extending it and zeroing the extension. The allocation is to assure 
that the array is in core, so that the two redefinitions have explicit 
effects. Second- level data arrays can also be zeroed by either re- 
definition or by setting their elements to zero, but since a code- 
word implies referencing outside itself, a codeword array can only 
be zeroed by redefinition,. The redefinition process will eliminate 
the references. It should be noted that such a zeroing of a code- 
word not only zeroes the second-level arrays but requires their 
redefinition,, 
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An additional routine helpful for debugging will give an image 
of an array in all internal forms: octal, floating point, FORTRAN 
integer, and BCD. It is entered with 

CALL DUMP(NAME) 

or 

CALL DUMPfMEMB, J) 

Subprograms must, however, be recompiled after debugging to 
eliminate the intermediate dumps 

All tape handling is done in a single small FORTRAN subroutine 
called FILES. FILES contains logical tape numbers used for 
scratch tapes and computes the tape to be used from the file num- 
ber, Some attempt is made to keep from having very short rec- 
ords on the tapes: through a form of buffering in the subroutine, 
files less than 254 words are combined into files of approximately 
this length. 

In order to compute tape numbers and record numbers on the 
tape from the file number, a maximum number of files per rec- 
ord had to be set (at present it is 20). With four scratch tapes, 
the formulas for computing an internal tape number and record 
number for file L are 






-« 



(2o3) 



where NIT is an internal tape number and NIR a FORTRAN rec- 
ord number on the tape. If the number of scratch tapes are to 
be changed, the only changes in FILES would involve the two 
arithmetic statement functions (Equations 2. 3)„ For N scratch 
tapes, Equations 2.3 become 



NIT = L " l + 1 - Nl 

NIR =wk +1 



\N X 20/ 



(2.4) 



using integer arithmetic. The internal- external tape correspond- 
ence (NTAPE) would also have to be altered, and the limit on the 
tape initiation loop changed,, 



2,7 M.I. T. FMS Conventions 

Logical- physical correspondence of tapes differs widely with 
installations o Logical tape numbers are used in only two sub- 
programs in STRESS: FILES and DUMKX The tape correspond- 
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ence in the present system is shown in Table 2 2 tt Scratch tapes 
are Bl, B2, B3, and A4 Input is A2 and output, A3. These can 
be easily changed to suit any monitor system,, 

Table 2 2. M I„ T. Tape Correspondence 
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All STRESS BCD output is programmed with FORTRAN PRINT 
statements, and input with the equivalent of the READ statement,. 
Output occurs from numerous programs, but input occurs only 
from subroutine MATCH, (See Chapter 3.) The M. I. T. library 
routines interpret the PRINT and READ statements as WRITE 
OUTPUT TAPE 2 and READ INPUT TAPE 4 a To avoid extensive 
changes of source programs and recompilation for use with the 
IBM library routines, a dummy routine DUMIO is added which 
contains the entries to the PRINT and READ subroutines. The 
action for each entry is to place the appropriate logical unit num- 
ber in the accumulator and transfer to the corresponding tape 
routine. This method also has the advantage of localizing tape 
references. 



Chapter 3 



LANGUAGE TRANSLATION 



The form of data input to the STRESS processor differs greatly 
from most other computer programs, Format and ordering re- 
strictions have been almost eliminated but are replaced by the 
need to program explicitly the language translation. This chapter 
describes the method of data input and translation used in STRESS 
and gives some examples of how input flexibility can be pro- 
grammed. 



3. 1 Nature of Input Data 

The input technique used in the STRESS processor treats input 
in a logical rather than physical form yet allows input in its gen- 
eral sense to be programmed in FORTRAN. For this purpose a 
single FAP subroutine has been written to process input fields 
logically and provide information about the input that can be 
used by the FORTRAN program to control further processing and 
data storage. 

The nature of input does not require the rigidity of the FORMAT 
statements needed with FORTRAN. It is more logical to have the 
input form follow the same rules that govern natural language. 
The logical rather than the physical composition of the data can 
be interpreted during input as an alternative to FORMAT state- 
ments. The fact that a group of characters starts with a letter 
is sufficient to recognize a word. Similarly, a number indicates 
numerical data; a decimal point distinguishes a floating-point 
number from an integer; and a blank or a comma after a group 
of characters indicates the end of the group 

Input to STRESS deals with three types of information: BCD 
words, floating-point numbers, and integers. Each of these 
requires a separate form of conversion from card form to inter- 
nal representation. Each implies different types of actions by 
its presence. A number is a data item to be stored, and an inte- 
ger normally signifies where the number is to be stored. A word 
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can be data to be stored, information about the type of data, or 
more generally information about the input process. In most 
cases, a word in BCD form has no meaning to an algebraic proc- 
essor, and its meaning must be determined from some dictionary. 
The simplest form of dictionary, used in STRESS, consists of a 
list of acceptable words. The position of a word in a dictionary 
characterizes its identity and is a logical quantity which can be 
used for further computations. 

With the input process controlled by decoding input fields, 
statements may be processed in an arbitrary order. The amount 
of data used for control is generally small. The input process 
has, in its simplest form, a tree structure, with decoding of 
statements proceeding up the tree. In this simple form each 
branch is programmed separately to perform its operations, 
process the input, and continue up the tree. 

Character manipulation required by the free- field format can 
be done only in a symbolic language. A single subroutine, written 
in FAP, performs all input functions to the processor. The pro- 
gram reads a full card (72 columns) into a buffer in BCD form. 
This buffer can then be searched for logical fields, that is, groups 
of characters separated by a blank, comma, or the start or end 
of the card. For numbers, the appropriate conversion from BCD 
to binary can then be performed. The BCD word itself can be re- 
turned or it can be compared to a dictionary,. 



3o 2 Specifications for Subprogram MATCH 

The function- type subprogram MATCH is designed to be easily 
usable with FORTRAN for operations on logical input fields. The 
translation of a field identifies its form and meaning. Branching 
on translated words can then be accomplished in FORTRAN with 
the "computed GO TO" statement, with the control variable de- 
termined from the position of the translated word in the dictionary 
list. 

The subprogram MATCH is used by a FORTRAN translation pro- 
gram with the following form and argument definitions: 

I=MATCH(J,K, M) 



where: 



For 



M is the operation code. 
I is the result code. 



M = 0, read next logical field. 

M = 1, start a new card, read first logical field. 
M = 2 or 3, read the next number, skipping letters. 
M = 4, skip one logical field (word). 
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M = 5, determine buffer reference address. 

For M = 0, 1, or 4, J is a dictionary list name, The next logical 
field is isolated and if the field is a word, it is compared with 
the words in list J for correspondence. If the field is a number, 
it is converted. For M = 5, J is the subscript of U locating the 
buffer. The I* n word in the 12- word buffer can then be referenced 
as U(J+I) for printing or saving. 

The symbol K represents the location where the results are 
stored. The form of the result depends on the value of I, that is, 
the form of the logical field, as follows: 

I Form of Field Form of Results in K 

1 6 consecutive blanks unchanged 

2 integer number FORTRAN integer form 

3 floating number floating- point form 

4 word, not found in list J BCD form of first 6 

characters of word 

5 word, found in list J FORTRAN integer for word 

location in list J 

6 the word DO or DITTO unchanged 

For 1-3 and 4, floating-point FORTRAN names are needed 
for operations on the results, so that K must be equivalenced 
with a floating-point variable, say BK. If a word is found, only 
the first six characters are used. 

Two fixed- location symbols are provided to designate two dif- 
ferent card types. An !f * ,f in card column 1 designates a comment 
card, which is echo printed, but otherwise ignored. A M $ M in 
card column 1 designates the card as a continuation of the pre- 
vious cardo The usual test for the end of a statement is a check 
for 1=1. If the logical fields on a card carry beyond column 66, 
I = 1 is determined by finding no $ in column 1 of the next card. 
On the other hand, if M = 1 (read a new statement) is specified 
and a $ is found in column 1, this signifies a continuation error . 
To mark this error, I is set to 4 and K contains in BCD the word 
f, $ERROR." 

The form of the lists can be specified most efficiently in FAP. 
Their form, however, is sufficiently easy to understand, so that 
a programmer should have no difficulty altering them. The form 
of a typical list in FAP is 

ENTRY LK 

LISTN DEC 10 (number of words in list) 



ENTRY 


LISTN 


DEC 


10 


BCI 


1, 0WORD1 


BCI 


1, 0WORD2 


BCI 


1, WORD10 


END 
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For words of length six letters or more in the list, the word in 
the list is started following the comma. For words of less than 
six characters, leading zeroes are used so that the sum of zeroes 
and characters equals six. Since the list name is a subroutine 
name, and it is used as an argument in the calling sequence to 
MATCH, the list name must appear on a FORTRAN F card in the 
subroutine using the list. The F card performs the function of 
placing the named variable location in the transfer vector list 
rather than in variable storage. 

MATCH gives an echo print of each card as it is read. Error 
messages associated with the translation of a statement can be 
printed when detected and will therefore appear directly below 
the statement in error for easy association. 



3. 3 Translation with MATCH 



Although MATCH provides a general input capability, versatile 
translation requires extensive logical programming. Virtually 
any type of input can be performed. Input to the STRESS proc- 
essor can be separated into three types: words to direct the 
translation process, words to identify the data, and finally the 
data. The last two types might also perform the function of the 
first. The data might be a code number constructed as a function 
of the input words, or integer decimal numbers. 

The translation process consists of identifying a logical field, 
operating on it according to its type and value, and branching 
to some appropriate point to continue,. For example, a series of 
about 15 statements at the start of subroutine PHAS1A read the 
first field in a new statement. The input specifications allow a 
series of decisions depending on the outcome. If six consecutive 
blanks are detected, the next logical field in the statement is 
examined as if it were the first. This follows from the specifica- 
tion that a statement can be started anywhere on a card. In order 
that blank cards be allowed, it is necessary to count the number 
of words of blanks. Integer numbers as a first word are accept- 
able only if the statement follows a tabular header or another 
table entry. A table indicator (ITABLE) can then be used for 
branching. Starting a statement with a decimal number is an 
error, as is a word not contained in a list LIST1 of acceptable 
first words. A word found in the list is used for branching. The 
tabular mode is terminated as soon as a word is found starting 
a statement. The word position is saved for possible later ref- 
erence, as detection of DO or DITTO causes branching on the 
last branch saved. In the following program illustrating this in- 
put specification for starting statements, statement numbers in 
the 90 f s are used for printing error messages. 
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C START NEW CARD 

10 J=0 
IX = 
M = l 

C READ FIRST FIELD 

11 I1=MATCH(LIST1,K,M) 

GO TO (12, 14,97,94, 16, 17), II 
C BLANK FIELD, TRY AGAIN 

12 IX=IX+1 
M=0 

IF(IX-12) 11, 10, 10 
C INTEGER-SAVE AS JOINT OR MEMBER NUMBER 

14 J=K 
C IF IN TABULAR MODE, GO TO JOINT OR 

C MEMBER INPUT 

IF(ITABLE-l) 98,100,200 
C STOP TABULAR MODE 

16 ITABLE=0 

C SAVE BRANCH NUMBER 

K1=K 
C BRANCH TO CONTINUE PROCESSING 

17 GO TO (100, 200, . . .),K1 

The first word in a statement defines at least partially the state- 
ment type. The branch on Kl goes to program parts that decode 
the appropriate types of statement. In order to keep the "computed 
GO TO n statements from getting too long, the dictionary is divided 
into several lists according to the association of possible words 
in a translation process. All permissible first words appear in 
LIST1. There is another list for possible third words in the 
NUMBER statemento The second word in the NUMBER statement 
is skipped using M=4 in the call to MATCH. 

The subroutine READ is used to read much of the numeric and 
alphabetic member and joint data. Alphabetic information is 
formed into a code computed from the positions of the words in 
the list used. Whenever a set of words representing a code is 
translated, the code is stored in an array LABL and a storage 
counter tabulating the number of codes incremented. When a 
decimal number is read, it is temporily stored in an array BETA 
and another storage counter incremented. The entry in the array 
LABL identifies the numeric data for the corresponding elements 
in the array BETA. The elements in LABL can be used for stor- 
ing the corresponding elements of BETA in a data array, The 
label numbers in LABL(K) are computed to give the position in 
the data array for storage of the K tn element of BETA, which is 
stored in an array, for example, NDUM, by 

J=NDUM+LABL(K) 
U(J)=BETA(K) 



26 Language Translation 

If labels are not given, the array LABL is filled with a sequential 
set of numbers, thus giving the alternative of fixed- order or iden- 
tified data (see Section 2.7 in STRESS: A User's Manual). For 
alphabetic data, the codes in the array LABL are the input re- 
sults, which can then be further processed. 

As an example, consider the translation of the data or labels 
FORCE X, FORCE Y, FORCE Z, MOMENT X, MOMENT Y, 
and MOMENT Z. Assume LIST6 is made up as follows: 

ENTRY LIST6 



LIST6 


DEC 


5 




BCI 


1,00000X 




BCI 


1,00000Y 




BCI 


1,00000Z 




BCI 


l,0FORCE 




BCI 


1, MOMENT 




END 





The following set of statements will place code numbers 1 through 
6 for the labels in the order just given above: 

10 IJ=0 

L=0 
12 I1=MATCH(LIST6,K, 0) 

GO TO (30, 100, 200, 300, 14, 95), II 
14 GO TO (20,20,20, 16, 18), K 
16 IJ=0 

GO TO 12 
18 IJ=3 

GO TO 12 
20 L=L+1 

LABL(L)=IJ+K 

GO TO 12 
30 Subsequent processing 

Note that a series of 6 blanks is used to determine completion. 
Then L shows the number of labels formed. In addition, flexi- 
bility in input form is produced: the words FORCE and MOMENT 
need not be repeated to form labels, so the user could write 
FORCE X Y Z. Obviously, the preceding program segment places 
in sequence the code numbers for any arbitrary sequence of labels. 



3.4 User Modification of Language 

Any modification of the STRESS processor by users will most 
likely involve modifications of the input phase. A series of pos- 
sible types of modifications is briefly discussed. Sample exten- 
sions of the processor are given in Chapter 7. 
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The easiest type of modification consists of changes in the vocab- 
ulary. If a firm is used to particular terms and wishes to re- 
tain them, only the appropriate entries in the dictionary lists need 
be changedo For convenience all the lists are included in a single 
subroutine with multiple entries . By threading through the input 
programs in the statement- translation phase, the place can be 
found where the word to be changed is read. This place will dis- 
close which list is used; the word to be changed can be located 
in this list. Only the subprogram of the list need be recompiled 
(reassembled), 

To add a new statement type, the first word in the new state- 
ment must be added to LIST1 and a branch to its decoding added 
to the branch on first words, If the decoding will use parts of 
other decoding routines, appropriate logical constants may have 
to be introduced for branching. The new decoding portion may 
consist of a series of calls to MATCH, looking and testing on 
certain forms of logical fields and storing data for subsequent 
processing. Existing translation programs can serve as a guide 
to writing new parts D 

If new arrays are needed for data storage or subsequent proc- 
essing, their names (codewords) must be included in the COM- 
MON statements in the subroutines referring to the names. Loca- 
tions in COMMON already used are enumerated in Chapter 5. 
Appropriate array definition and allocation are required before 
storage of data. The definition function may require an additional 
statement of the size- descriptor type. The array should be re- 
leased while not needed. 

To add additional branches on existing statement types, the 
procedure is similar to new statement types, but branching is 
deferred to later word translation. For additional size descrip- 
tors, size- descriptor names have to be added to the list. If the 
statement form is not different from the other size descriptors, 
then the translation process is unchanged. At present all branch- 
ing on processes necessitated by translation of a NUMBER state- 
ment is done in the subroutine SIZED. A new branch must then 
be added in the subroutine SIZED to perform the processes re- 
quired by the translation. 



Chapter 4 



METHOD OF SOLUTION 



The present STRESS program performs the static, linear anal- 
ysis of elastic lumped- parameter structures. This structural 
analysis problem involves the setting up and the solution of a set 
of linear algebraic equations . The present chapter discusses the 
mathematical formulation of the structural analysis problem as 
it is implemented in the STRESS processor. The formulation is 
presented in matrix notation: only rectangular Cartesian space 
coordinates are used A prereading of "A Network Topological 
Formulation of Structural Analysis" by S. J. Fenves and F, H. 
Branin, Jr„ , l is essential to understanding this chapter. 



4. 1 The Network Concept 

At present STRESS performs structural analysis solely by the 
stiffness method, treating the displacements as unknowns. This 
is no restriction on the class of problems than can be handled. 
Since certain structural forms could be analyzed more efficiently 
by the flexibility method, it is hoped that this alternative method 
will be implemented in the system as well. Many of the solution 
steps could be used as presently programmed. 

The computational procedure of the structural analysis in 
STRESS is based on a network interpretation of the governing 
equations, the principal feature of which is the clear segmenta- 
tion in processing of the geometrical, mechanical, and the topo- 
logical relationships and properties of the structure. This allows 
a concise and systematic computational algorithm that is equal- 
ly well applicable for different structural types such as plane or 
space structure, pinned or rigid member connections. 

In !I A Network Topological Formulation of Structural Analysis, 11 



l S. J. Fenves and F. H. Branin, Jr. , "A Network Topological 
Formulation of Structural Analysis," J. Struct. Div„ , ASCE, 
ST4, 483 (August 1963). 
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a detailed description of this formulation is given for the homo- 
genous structural type (that is, either all members rigidly con- 
nected or all members pinned). Only a summary of important 
relationships is therefore reproduced here. 

A somewhat more detailed description of the procedure used 
to include local force releases (for example, hinges, rollers) 
for members and support joints is given in Section 4. 2. 

One essential difference of procedure used in the STRESS proc- 
essor from that in Fenves and Branin f s paper should be pointed 
out: for reasons of numerical accuracy the single global- coordi- 
nate system has been replaced by a series of joint- coordinate 
systems, all oriented in the same direction but each having its 
own origin at a joint. The only effect of this on the general for- 
mulation is that the transformation T of stiffnesses from local 
to global (joint) coordinates involves only a rotation and that the 
entries of the incidence matrix A become [-t],[I],[0] rather than 
[-1], [l],[0]. The submatrix [t] is the displacement translation ma- 
trix in joint coordinates from the start to the end of the member. The 
origin of each member-coordinate system is located at the end 
of the member. All quantities referring to member coordinates 
are indicated with a superscript asterisk. 

We now consider a linear elastic structure consisting of slender 
members connecting the joints of the structure. 

The statement of the problem is given as follows: 

Given: 1. A structure that determines the topological 

matrix A and the geometric transformations 
T and T between member and joint coordi- 
nates. The branch- node incidence matrix A 
is defined as follows: the element (submatrix) 
a^j is [-t], [i], or [0] , depending on whether 
the i^k branch (member) is positively, nega- 
tively, or not connected to joint j. 

2. The primitive- flexibility or stiffness matrices 
F or K of all the members in member coordi- 
nates, or the necessary mechanical and geo- 
metrical properties of the members, so that 

F and/or K can be computed. 

3. The applied member distortions U* in mem- 
ber coordinates and the applied joint loads P 
in joint coordinates. STRESS accepts a larger 
class of input loads, all of which are processed 
into equivalent contributions to LP and P 1 . 

Find: The induced member forces R and distortions V 

such that in joint coordinates 

1. KV = R (4.1) 

2. A*R = P f (4.2) 
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where the following relationships hold: 

u = Au' (4. 3) 

V =.U + u (4.4) 
R = P +■ p (4. 5) 

where U = applied member distortions 

V = induced member distortion 
R = induced member forces 

u 1 = joint displacements 
u = total member distortion 
P = applied member forces 
p = total member forces 

We now introduce the joint displacements u' as variables 

V = U + Au 1 (4.6) 
R = KV = KU + KAu' (4.7) 

P* = A*R = A*KU + A t KAu« (4. 8) 

This is the governing set of linear algebraic equations, which is 
solved for u 1 

u 1 = (A t KA)" ! (P f - A^U) (4. 9) 

After we have found u ! , backsubstitution gives the induced mem- 
ber distortions and forces as 

V = U + Au 1 = A(A t KA)" 1 P r +■ (I - A(A t KA)" Vk)U 

(4.10) 
R = KV (4. 11) 



4. 2 Local Releases 

The formulation given by Equations 4» 1 through 4. 11 assumes 
that the structure is homogenously connected in the sense that 
all members have rigid connections to the joints in the directions 
compatible with the structural type. (For a frame this means 
rigid connections in all directions, and for a truss a rigid axial 
connection.) 

If a structure deviates locally from this standard condition it 
must be so stated by specifying releases. A release is associ- 
ated with a particular force component and implies that this 
component is independent of the deformations of the structure 
(that is, it is prescribed). A joint release relates to a reaction 
component at a support joint, and a member release relates to 
a member- force component at a given point along the axis of the 
member. 

4. 2o 1 Member releases. The load- deflection relationship for 
the unreleased member in local- member coordinates is 
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R = K V 



(4. 12) 



For the released member we assume that a given set of com- 
ponents of the member- force vector R r at R is prescribed to 
be zero (any fixed value could be used, but generally would not 
be meaningful) o We consider here only the cases where the origin 
of the release system is located either at the start A or at the end 
B of the member, The procedure described could be extended to 
include releases within a member. Such cases can, however, 
always be reduced into the situation where R is either at A or B 
by introducing a fictitious joint at R. 




Figure 4. 1. Member and member- release coordinates,, 

The release conditions are assumed to be given in the member- 
release coordinate system x J, xj,xj shown in Figure 4. 1, which 
is related to the member coordinate system at B by 



= T V 
i r v r 



(t.'Vr, 



(4. 13) 



where T r is the transformation matrix between the member- and 
the release- coordinate system. The subscripts r refer to the 
release system. We derive an equation of the type of Equation 4. 1Z 
that is valid for the released member. Equations 4„ 13 are 
written in the release systems as 



Rr 



K r V T 



(4. 14) 
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where 



K = T *K*T (4.15) 



r r r 

we define 



V = AV = (AW (4.16) 



r r 



R = AR^ (4.17) 



where 



and 



s =[|] 



is a permutation matrix and is orthogonal; that is, 
from Equations 4. 16 and 4. 14 



w = L g 2i K 22 J • {^J 



(4. 18) 



K£] <«••» 



A' 1 ^A t (4.20) 



R = AR = AK V = AK A*V (4. 21) 

r r r r 



(4.22) 



(4.23) 



The definitions of K n . . . K 22 are implied by Equations 4„ 22 and 
4.23. Solving Equation 4. 23 for R l while eliminating V 2 gives 

R, = (K n - K 12 K 22 " ! K 21 ) V! (4.24) 

If back permutation is effected, we get for R r 

R r = A 1 t (K u -K n K 2 i% 1 )A i y r (4.25) 

Equation 4. 25 is the modified load- deflection relationship for the 
released member in released coordinates. The inverse trans- 
formations of Equation 4. 13 brings us back to member coordi- 
nates. 

R* = (T "VA^Kn - K ll K„" 1 K 2i )A 1 T' 1 • V* (4.26) 
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R - K V 



where 



K* = (A 1 T r "V(K 11 - KhKjj^KjJA,^ -1 (4.27) 

The effective stiffness for the released member is K „ 

If releases are prescribed at both ends of the member, the 
procedure just described can be applied serially to the two re- 
lease groups. 

If a number of such release groups is given such that an un- 
stable member is implied, this fact will become automatically 
apparent, in that the matrix K 2 2 will be singular if the releases 
that are about to be incorporated would render the member un- 
stable. 

4. 2 Z Fixed- end forces. The prescribed releases not only 
affect the member stiffness but also the fixed- end force vectors 
resulting from applied member loads. 




R B 



A 
Figure 4. 2. Definition of fixed- end force vectors. 

We next describe a procedure to compute the modified fixed- 
end forces. The stiffness of the member without releases is K 
and the corresponding fixed- end force vectors are R>, and v R . 
(Figure 4.2). We assume that Rg has been computed from 

R B = K * V B (4#28) 

where v-d is the cantilever deflection vector at end B resulting 
from the applied loads. From statics 
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r a = f ca- t " 1r b (4 - 29) 

where Fqj± * s tne cantilever force vector at A resulting from the 
given loads. 

It is immediately clear from the definition of K* and R* that in 
the case where there is a release at B only we obtain 

— # — % * 

R B =. K B v B (4. 30) 

r 1 = f ca- t " 1r b < 4 - 31) 

The case where the member start A is released only can be 
handled by analogy if K^ and v^ are available. 

If both ends of the member have released force components, a 
special procedure is necessary because then the deflection vec- 
tor vj3 does not correspond to the actual support conditions of the 
member at A, A A 

We assume that Kg, Rg, and R^ are the stiffness matrix and 
force vectors at B and A, respectively, reflecting the releases 
at B but not those at A, 

A* A* * 

R B = K B v B (4. 32) 

A jfc a{e 

Then due to the release at A the forces R^ will change by AR^: 



AR A = AAR 
A 



Let 



:=ft)=[^ T -'s T - u < A 'iv,Q h.33, 



A* - iA# - It '■ . 

K A = T K T 4,34 

A B 

The permutation matrix for the releases at A is A„ If v *? anc * 
AR^ refer to the released directions at A, we have 



(4. 35) 



V A1 = 







AR A2 


= - 


A 2 R A 


L fixed 


- end forces 


-* 
R A = 


A* 
R A 


+ AR A 
A 


R B = 


F CB " TR 1 



(4. 36) 

Rewriting Equation 4. 33 in partitioned form and solving it for 
AR by elimination of v , we find 
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AR A1 



or 



A * t / A * A - 1 A * 

-vaivaVj.^a (4 - 37) 

a kanaka M A,l 

IAzV^Az/ 2 j , 



* A t/ All /A t, A t j 1 A 2 V 2 A 2 / 2 A* 

AR A = A (art: j = (Ai ,Az m ^ — — I r a < 4 - 38) 

If we define 



I 1 = A^A, 



i" = A^Aj = I - I 1 (4. 39) 



-* 



It follows that 

— * iT A* t/ A* t\~ 1 1a* 

R A = * f " K A A 2 ( A 2 K A A 2 ) A 2j R A < 4 ' 4 °> 

Rg can then be found from statics. It follows that 

R B = rV B + Ti2F CA (4 ' 41) 

where 

K* = T[I' - I'^A^K^'AJ^T* (4.42) 

By using the definition of I 1 one can prove that Expression 4. 42 
is equal to Expression 4.42a, which shows that the first term of 
Equation 4.41 is the same as expression 4.26. 

— * t • A* t~ - l A* , t 

K = T[I f - I f K A A 2 K 22 A 2 ]K A I f T (4.42a) 

Also 

fl = I n + A 1 t K l2 K 22 ' l A z (4.42b) 

where K 12 and K 22 are given by 

K u = AjK *A 2 * (4. 43) 

~ A* t 

K 22 = A 2 K A A 2 (4. 44) 

It is noted that all matrix operations involving multiplication with 
parts of a permutation matrix can be carried out on the computer 
by inspection rather than by actual multiplication. 

4.2.3 Joint releases. The term joint release as defined here 
applies to support joints only. It differs from a member release 
at the same point (if more than one member is incident to this 
joint) in that the joint release requires only that the sum of all 
member forces from all the members and external applied loads 
in the released direction be zero. Each individual member may 
still carry forces in this direction (Figure 4. 3). 
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77T777777T 

Member Releases at 
Support Joint 




777777777777" 

Joint Release 



Figure 4. 3. Distinction between member and joint releases. 

The stiffness formulation for the complete structure, including 
support joints is 



K' n K ! 12 l/u«\ /P\ 



(4 45) 



where u 1 and P 1 are the displacements and joint forces at the sup- 
port joints. The elements of the stiffness matrix are defined as 



K 8 n = A t KA 
K^ = A t VLA 



K 



A^A 



K22 = A t KA 



(4. 46) 



In Equation 4.46, A refers to the portion of the augmented in- 
cidence matrix involving free joints, 2 while A refers to the portion 



Free Joints 



Support 
Joints 

_J 



A*KA j A t KA 



A t KA A*KA 



I 



u" 



p' 



Figure 4.4. Modified structural stiffness matrix. 

involving support joints. This partitioning of the structural ma- 
trix can be represented as is shown in Figure 4.4. 

We apply a permutation to Equation 4. 45 such that the equations 
associated with the released directions are moved to the bottom 



See Fenves and Branin, op. cit. 
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and also rotate the equations in the coordinate system of the joint 
releases by 



(AR)u 



(4,47) 



where A is the (orthogonal) permutation matrix and R is the 
rotation matrix Rco> from the release system to the joint- 
coordinate system, We define 



Q 



<AR. - [g] 



(4. 48) 




(4. 49) 



where upj[ are the prescribed joint displacements at support joints 
in nonreleased directions. 




(4.50) 



Here P p ? i s prescribed and represents the applied joint forces 
at released supports in released directions. We can now further 
partition Equation 4 45 by introducing Expressions 4.49 and 4.50: 



K n K 
•K 2 j K- 



12 



22 



13 



23 



^31 



'32 



K, 



33 




(4.51) 



where 



K 



li 



A t KA 



K 12 = K 2 i = A^KAtAjR) 
K 13 = K^ = A t KA(A 2 R) t 



^23 ~ *^32 



A 1 RA t KA(A 2 R) t 



K 33 = A 2 RA t KA(A 2 R) t 



Solving (4.51) for u 1 by elimination of Upj, we obtain 



(4.52) 



u.' 



r-l~ 



■■# 0> X 



where 



(4.53) 



$> - Kn - Ki3K 33 K 3 i 



(4. 54) 
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0> x = P« - K 13 K 33 " 1 P p2 - (K 12 - ^^3-^32) fr pl (4.45) 

Replacing Pp2 and u pi by the corresponding quantities in joint 
coordinates, we arrive at 

0>* = P' - K 13 K 33 " 1 A 2 Rp l - (K 12 - K 2 3K33" 1 K 32 )A 2 r5' (4. 56) 

Equation 4.56 describes the effective joint loads 0> % on the free 
joints, including the forces applied in the direction of released 
support components and the displacements in the direction of un- 
released support components. 



4 3 Implementation in Processor 

The methods outlined in Sections 4 1 and 4,2 are well suited 
for application to a digital computer program. They allow a gen- 
eral program to be written in concise form and the data to 
be stored efficiently. The same program can handle different 
types of structures, and only the minimum of needed informa- 
tion is stored. For example, only the nonzero elements of the 
incidence matrix "K or the stiffness matrix A^KA are stored, 
and, where possible, logical submatrices of up to 36 elements 
are stored only symbolically as a single binary bit. (See also 
Section 6 5. 7.) 

The whole solution process thus becomes literally a sequence 
of file-processing operations; that is, a given array of numbers 
is operated on to generate a new array, then further operations 
are done on this new array, etc. The solution process (execution 
phase) can be summarized in these steps: 

1. Generate a table of member stiffness matrices for the 
nonreleased structure. This is done by computing first 
the member flexibility F > (F > = cantilever deflection due 
to a unit- force vector at the end of the cantilever) and then 
obtain the stiffness as 

K = F 

where K* is stored in KMKST. 

2. If there are any member releases, the K* table is modified 
to K* according to the procedure given in Section 4.2 for 
member releases. 

3. From the raw data for the loads, for each^ loading condition 
the total equivalent force vectors P ? and P f are generated, 
comprising the load vectors for the governing joint- equilib- 
rium equations. STRESS accepts five different types of 
input loads: 
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a„ Joint loads 

bo Member- end loads 

c Member loads within the member 

do Member distortions 

e, Support- joint displacements 

In the kinematically determinate structure (which is 
considered during step 3) the different load types give con- 
tributions to various data arrays kept internally. These 
arrays are the following: the member-end loads at the start 
and the end of the members, P + and P" (arrays KPPLS 
and KPMNS); the member distortions U (array KUV); and 
the effective joint loads P and P at the free joints and at 
the support joints, respectively (arrays KPPRI and KPDBP), 

The mathematical representation of the processing steps 
required for the different load types are shown as follows: 

a. Joint loads 

Store directly in P 1 or P' 

b. Member- end loads 

Convert the given member- load components from mem- 
ber coordinates to joint coordinates,, 
Add contribution to P + and/or P" 
Compute contribution to P 1 as 



P» = A^* 



■■&* 



A* 



c. Member loads 

Compute equivalent member- end forces and proceed as 

in b. 
do Member distortions U* 

Rotate to joint coordinates at end joint. 

Add contribution to U. 

Compute contribution to P^: 

P ± = KU 
Compute contribution to P f : 

P f = A t P ± = A t KU 

e. Support-joint displacement u 1 

Compute resulting member distortions 

U = A/ — l and add these to U. 



Contributions to F^: 
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P^ = KU = KA^— \ 



Contributions to P : 



pi = aV* = A*KU = A^P \ 



4. Rotate all member stiffnesses to joint coordinates of the 
member- end joints. 

■— * t 
K = RK R 

where K is stored in table form in the second-level array 
KSTDB. 

5. Generate the structural stiffness A^KA from the incidence 
table A and the stiffness table K. AKA is stored in the ar- 
rays KDIAG and KOFDG, using the arrays IFDT and IOFDG 
as bookkeeping arrays. Only nonzero elements of the lower 
left half of matrix A*KA are stored in KOFDG. 

6. If there are joint releases^ the stiffness tables KDIAG, 
KOFDG, IOFDG, IFDT (A^KA), and the load vectors 
KPPRI (P ) are modified according to the procedure of 
Section 4.2 for joint releases. If there are no free joints, 
this operation yields all displacement components at the 
released supports. 

7. If there are any free joints, solve the final governing joint- 
equilibrium equations for the free- joint displacements u 1 , 
reflecting member as well as joint releases. The resulting 
u 1 are stored in KPPRI. 

8. Backsubstitution. From the free- and the support- joint 
displacements compute the induced member distortions 
and member- end forces according to Equations 4 10 and 
4. 11 and add them to the contributions in the kinematically 
determinate structure. 

The detailed execution of the individual steps is described in 
Section 5 of Chapter 6, as well as in the flow charts of the corre- 
sponding programs o 

All data arrays, such as the displacement vector u f or the 
member stiffnesses K are arranged in storage (either in core 
or in secondary storage) in table form, either as first-level or 
second-level data arrays, using the procedures described in 
Chapter 2. The matrix operations as they appear in the formu- 
lation of the problem can thus be done largely by bookkeeping and 
inspection, rather than formally. For example, the matrix A 
is stored only as two incidence tables giving the start and end 
joint of each member (JPLS, JMIN). Similarly, the "matrix prod- 
uct" A*KA is not formally computed but is formed by bookkeeping. 
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First, only the nonzero submatrices on the diagonal of the com- 
plete matrix K are stored in a second-level data array KSTDB. 
The lower left half of the matrix A KA is then formed by means 
of one loop on the members, adding the proper member stiffness 
once to the diagonal stiffness submatrices and once to the off- 
diagonal stiffness submatrix corresponding to the joints which 
the member connects. Thus even for structures for which the 
storage for the complete matrix A* KA would require many times 
the capacity of the IBM 7094 core, the actual storage requirement 
during the formation of A KA, by bookkeeping, never exceeds a few 
hundred machine words, and the computer time used for the com- 
putation is a fraction of that required by a formal multiplication. 
Similar methods are applied in all phases of the total process, 
for example, for the operations required due to local- member 
or joint releases as well as during the solution of the stiffness 
equations and backsubstitution 

Since all operations are performed a member or a joint at a 
time, all procedures are applicable to all structural types c Only 
the three subroutines dealing with the computation of member 
flexibilities, member fixed- end forces, and output actually dis- 
tinguish between the structural types. In all other subroutines, 
the operations are completely generalized using variable length 
loops of the form DO N 1=1, JF, where JF is the number of de- 
grees of freedom for the structural type considered. 



Chapter 5 



DESCRIPTION OF PARAMETERS, CODEWORDS, AND ARRAYS 



In this chapter, a detailed description is given of the system 
parameters, problem parameters, and codewords comprising 
the fixed storage of the system. As described in Chapter 3, the 
codewords controlling the data arrays are synonymous with the 
arrays themselves. Therefore, the makeup of the data arrays 
is presented in terms of the codewords. 



5. 1 Organization of Parameters and Codewords 

The (300) io locations from TOP+1 through TOP+300 (see Sec- 
tion 5o2) are assigned fixed functions in the STRESS system, as 
follows: 



Number of Words 



Absolute Addresses 



Function 





(Octal)i 


108 


77461 - 77306 


50 


77305- 77224 


42 


77223- 77152 


100 


77151 - 77006 



Working storage 
System parameters 
Problem parameters 
Codewords 

The working area is available for direct subscripted operations, 
and normally does not contain information carried from one sub- 
routine to the next. This portion will not be discussed further. 

The remaining 192 locations are reserved for parameters and 
codewords. Not all of this space is used at the present time, nor 
are all existing parameters and codewords needed by every sub- 
routine. In order to maintain the proper COMMON allocations, 
dummy filler arrays SYSFIL, PROFIL, and CODFIL of appro- 
priate dimensions are used in the subroutines. 

The actual assignment of parameters and codewords followed 
the chronological development of the system, and is therefore 



1 We assume TOP = (77462) 8 to conform with the FMS Monitor 
on the 7094 o 



42 



System Parameters 43 

not in a very logical order. In the following detailed description, 
an attempt was made to group parameters in a logical order For 
quick reference, the parameters and codewords are tabulated by 
location in Appendix C. 



5o2 System Parameters 

The following parameters describe or control the status of the 
system and are essentially independent of problem size. 

5. 2 1 Parameters pertaining to program status 

Name Address Description 

CHECK 77305 Solution consistency parameter, used in Phase 
lo The 36 bits of CHECK are used as consist- 
ency flags o Flags not present (bit = 0) at end 
of Phase IB indicate an input error and cause 
a diagnostic to be printed. If the flag is pres- 
ent (bit = 1), the consistency is satisfied. The 
significance of the bits in terms of the error 
message printed is given in the following list. 
Code 
Bit number of 

position error Message 

35 15 NUMBER OF JOINTS NOT 

SPECIFIED 
34 16 NUMBER OF SUPPORTS 

NOT SPECIFIED 
33 17 NUMBER OF MEMBERS 

NOT SPECIFIED 
32 13 NUMBER OF LOADINGS 

NOT SPECIFIED 
31 19 TYPE OF STRUCTURE 

NOT SPECIFIED 
30 20 METHOD OF SOLUTION 

NOT SPECIFIED 
29 21 PRINTING OF RESULTS 

NOT YET POSSIBLE 
28 35 NO LOADS SPECIFIED 

27 28 NUMBER OF JOINTS 

GIVEN NOT EQUAL 

TO THE NUMBER 

SPECIFIED 
26 30 NUMBER OF MEMBERS 

NOT EQUAL TO THE 
NUMBER SPECIFIED 
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Name Address 


Description 


(continued) (continued) 


(continued) 


5.2.1 (continued) 








CHECK (continued) 


Code 






Bit 


number 


of 




position 


error 




Message 


(continued) (continued) 


(continued) 


25 


31 




NUMBER OF MEM- 
BER PROPERTIES 
GIVEN NOT EQUAL 
TO THE NUMBER 
SPECIFIED 


24 


32 




UNACCEPTABLE 
STATEMENTS 
PRESENT 


23 


33 




STRUCTURAL DATA 
INCORRECT 


22 


34 




LOADING DATA 
INCORRECT 


21 


8 




MODIFICATION 
NOT ACCEPT- 
ABLE 


20 


10 




JOINT NUMBER 
GREATER THAN 
THE NUMBER 
SPECIFIED 


19 


11 




MEMBER NUMBER 
GREATER THAN 
THE NUMBER 
SPECIFIED 


18 


14 




LOADING NUMBER 
GREATER THAN 
THE NUMBER 
SPECIFIED 


17 


29 




NUMBER OF SUP- 
PORTS GIVEN 
NOT EQUAL TO 
THE NUMBER 
SPECIFIED 


16 


18 




NUMBER OF LOAD- 
INGS GIVEN NOT 
EQUAL TO THE 
NUMBER SPECI- 
FIED 


15 


26 




METHOD SPECIFIED 
NOT AVAILABLE 
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Name Address 

(continued) (continued) 

5 2 1 (continued) 

INORM 77 303 



ISCAN 77 301 



ISUCC 77274 



ISOLV 77 302 



IMOD 



IRST 



IPRG 



77277 



77261 



IRLD 


77260 


IRPR 


77257 


ICONT 


77275 



77262 



Description 
(continued) 



Overflow index 

= normal operating mode 

= 1 if memory overflow occurred 
Mode index 

= 1 if normal solution mode 

= 2 if scanning mode 
Error indicator 

= 1 if solution is still successful 

= 2 if solution has failed 
Indicator for the stage of solution success- 
fully completed 

s 1 System is entered 

= 2 PHAS1B 

= 3 MEMBER 

= 4 MRELES 

= 5 LOADPC 

= 6 TRANS 

= 7 ATKA 

= 8 JRELES 

= 9 FOMOD 

= 10 SOLVER 
Mode index for modifications 

= 1 no modifications 

= 2 changes 

= 3 additions 

= 4 deletions 
Modification entry, structural data (set 

by Phase la, but not used) 
Modification entry, load data 
Modification entry, printing 
Index for stage of modifications 

= if single solution 

= N if N th solution (N-l st modification) 
Print request parameter 

= 1 if print requested (selective output) 

■= otherwise 



5. 2. 2 Parameters controlling core storage 



NMAX 


77304 


TOP 


77272 


Nl 


77271 


NL 


77270 



Pool size available in core 
Address contains address of top of 

COMMON+1, that is, (77462) 8 
Top of pool = TOP - 301 10 - In Address 
Next available storage location to be 

assigned 



46 



Description of Parameters, Codewords, and Arrays 



Name Address 

(continued) (continued) 

5.2.2 (continued) 



NT 
NREQ 



77267 
77266 



Description 
(continued) 



Bottom of pool 

Additional memory space required for 
last memory request to ALOCAT 



5. 2 3 Parameters controlling tape storage 



NXFIL 
LFILE 

TN 
NTAPE 



NXFILE 



77276 
77264 
77265 
77256 

to 
77252 
77251 

to 
77245 



Initial data file number 
Next file number to be used 
Scratch- tape logical number last used 
Five scratch- tape logical numbers 



Five scratch- tape position numbers, 
indicating number of files on each 
scratch tape NTAPE 



5.2.4 Miscellaneous 

TOLER 77263 Tolerance limito Relative discrepancy 

allowed between the member length 
internally computed from joint coordi- 
nates and the sum of lengths of sub seg- 
ments in a variable member, as speci- 
fied under member properties* 



5. 3 Problem Parameters 



The parameters in this group describe the problem currently 
being processed by the system. 

5. 3 1 Type descriptors 

IMETH 77214 Method of solution code 

= 1 for stiffness method 

= 2 for flexibility method 
ID 77220 Identification for structural type 

= 1 for plane truss 

= 2 for plane frame 

= 3 for plane grid 

= 4 for space truss 

= 5 for space frame 

5. 3. 2 Basic size descriptors 
NB 77222 Number of bars (members) in the struc- 



NJ 



ture 
77223 Number of joints in the structure 
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Name Address 

(continued) (continued) 

5. 3. 2 (continued) 



NDAT 

NFJS 

JF 



77221 
77212 
77217 



NCORD 


77215 


NL DS 


77213 


NLDSI 


77164 


NMR 


77206 



NJR 



77205 

5. 3. 3 External size descriptors 
MEXTN 77167 



Description 
(continued) 



Number of support joints 

Number of free joints (= NJ-NDAT) 

Number of degrees of kinematic freedom 

at a joint 

= 2 for plane truss 

= 3 for plane frame, plane grid, or 
space truss 

= 6 for space frame 
Number of coordinate directions 

= 2 for planar structures 

= 3 for spatial structures 
Number of loading conditions 
Number of independent loading conditions 
Total number of member- release com- 
ponents 
Total number of joint- release components 



JEXTN 



LEXTN 



77170 



77166 



Highest external member number: 

MEXTN, JEXTN, and LEXTN control 
the sizes of all input- oriented arrays 
associated with members, joints, and 
loadings, respectively. Initially (dur- 
ing the original problem, ICONT = 0) 
they are set equal to NB, NJ, and 
NLDS. On succeeding modifications, 
they are reset to the highest external 
number encountered during reading. 
Every loop operating on input- oriented 
data must have these parameters as 
limits and must include a test for non- 
existing members, joints, and loadings, 
respectively. 

Highest external joint number (see 
MEXTN) 

Highest external loading number (see 
MEXTN) 



5. 3. 4 Derived size descriptors 

NSQ 77216 

NSTV 77211 



NMEMV 



77210 



= JF*JF: size of submatrices 

= JF*NFJS: length of a vector having JF 

components at each free joint 
= JF*MEXTN: length of vector having JF 

components per member 
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Name Address 

(continued) (continued) 



5.3.4 


(continued) 


NDSQ 


77203 


NDJ 


77202 


NFJS1 


77176 


5.3.5 


Counters 


JJC 


77175 


JDC 


77174 


JMIC 


7717 3 



JMPC 

JLD 
JLC 

NLDG 



77172 

77171 
77165 

77156 



Description 
(continued) 



= NJR*NJR: size of matrix K 33 in Equa- 
tion 4. 51 

= JF*NDAT: length of a vector having JF 
components at each support 

= NFJS+1: internal number of first sup- 
port joint 



Number of free joints given 

Number of support joints given 

Number of member- incidence statements 

given 
Number of member- property statements 

given 
Highest loading number 
Current loading condition number (for 

modifications) 
Number of loading conditions given 



5. 3. 6 Optional array indices 

IPSI 77207 Code for table of Beta angles 

= 1 if any member has a Beta angle 

given 
= if no Beta angles are given 
IYOUNG 77163 Young's modulus indicator 

= if no E values given 
= 1 if E given for each member 
#0 ^ 1, E value to be used for all mem- 
bers 
Shear modulus indicator, similar to 

IYOUNG 
Coefficient of thermal expansion indicator, 

similar to IYOUNG 
Member density indicator, similar to 
IYOUNG 



ISHEAR 


77162 


IEXPAN 


77161 


IDENS 


77160 


5.3.7 Mi; 


scellaneous 


ISODG 


77204 


IXX 


77201 



NPR 



Number of member-force components 
set in Phase la. 

Position of subarray KMEGA for current 
member with release at start of mem- 
ber 
77200 Current number of subarrays KMEGA 

set by MRELES, used by FIXM 
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Name Address 

(continued) (continued) 

5o 3, 7 (continued) 

NBB 77177 



NBNEW 



77157 



Description 
(continued) 



Current number of submatrices KOFDG 
(= NB up to subroutine JREL.ES, may 
be larger than NB after JRELES and 
SOLVER) 

Current defined length of codeword array 
of KOBDG (see also NBB) 



5.4 Codewords 



The codewords in this group control the data arrays used by 
the system,, The makeup and function of the codewords are dis- 
cussed in Chapter 3 D The makeup of each data array is described 
in this section in connection with the codeword controlling the 
array. An asterisk after the location indicates a second- level 
array. 

5„4ol Titles 



NAME 77151 12-word array containing the structure 

identification name in BCD 

MODN 77140 12- word array containing the modifica- 

tion name in BCD 

5 4. 2 Input joint data 

JTYP 77101 Joint type array, JEXTN long. Joint 

types are as follows: 
= joint does not exist 
= 1 free joint 
= 2 support 
= 3 deleted (changed to zero in PHAS1B) 

JEXT 77106 External joint table NJ long. JEXT(J) 

contains the external joint number cor- 
responding to the internal joint number 

Jo 

JINT 77105 Internal joint table, JEXTN long. JINT(J) 

contains the internal joint number cor- 
responding to the external joint J. 

KXYZ 77150 Joint- coordinate table, 3*JEXTN long. 

Coordinates XYZ of each joint stored 
in order by external joint number. 

KJREL 77147 Joint- release codes. First word: num- 

ber of joints released, NR. Succeeding 
groups of 5 words per released support 
joint: external joint number, release 
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Name Address 

(continued) (continued) 

5 4. 2 (continued) 

KJREL (continued) 



KATR 



77074* 



Description 
(continued) 



code, 3 angles in decimal degrees. 

number of released joints 
external joint number 



1 


NR 


2 


J 


3 


Release Code 


4 


6i 


5 


e 2 


6 


e 3 



Words 2 through 6 are repeated for 
each released support jointo The re- 
lease code is given in Bits 12 through 
17 o (This is the same form used for 
member- release code) 

Force X release = 1 in Bit 17 
Force Y release = 1 in Bit 16 
Force Z release = 1 in Bit 15 
Moment X release = 1 in Bit 14 
Moment Y release = 1 in Bit 13 
Moment Z release = 1 in Bit 12 

A matrix. It contains NJ data arrays 
referenced by internal joint number. 
Each data array contains the signed 
member numbers of all members inci- 
dent to that joint. 



1 
2 
3 

4 



NBRI 



SIZE 



Ml 



M2 



M y 



Number of incident 

branches 
Array size 



./NBRI- 1\ 



+ 1 + 2 



Member numbers inci- 
dent on joint J: positive 
if J is start, negative if 
J is end of member. 



NBRI+2 
5 4 3 Input member data 

JPLS 77146 Incidence table, MEXTN long. It contains 

tains the external joint number of the 
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Name Address 

(continued) (continued) 

5. 4. 3 (continued) 

JPLS (continued) 
JMIN 77145 



MTYP 



77144 



MEMB 



MTYP1 



77142* 



77100 



Description 
(continued) 



joint at the start (plus end) of the member , 
Similar to JPLS, but contains the joint 
number at the end (minus end) of the 
member. 
First- level array, MEXTN long. Each 
word contains data concerning the mem- 
ber type and is made up a.s follows: 



Bit Position 

S- 5 
6-11 

12- 17 

18- 23 
24- 29 

30- 35 
S 5 6 



Content 

Member- constraint code 
Member- release code 

for start of member same as 
Member- release code for KJREL 

for end of member 
IMLOT 
N = length of data array MEMB 

for this member 
Not used 

17 18 23 24 29 30 35 



MEMB 


MEMBER 








CONSTR 


RELEASES 


IMLOT 


N 




CODE 











IMLOT 


N 





_ 


1 


6 


2 


NSQ 


3 


NSQ 


4 


7*NS 



Member Type 

Member deleted 
Prismatic (A x , A y , A z , 

I z stored in MEMB) 
STIFFNESS GIVEN 
FLEXIBILITY GIVEN 
VARIABLE N = NS*7. 

contains A^., A , A^, 



V 



MEMB 



I z , L for each segment 
NS is the number of seg- 
ments. 
5 - STEEL 

Second- level array, MEXTN data arrays. 
Each array is N words long, where N 
depends on the member type (see MTYP). 
First-level array, MEXTN long, similar 
to MTYP. The word is made up as 
follows: 
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Name Address 

(continued) (continued) 

5.4,3 (continued) 

MTYP1 (continued) Bit Position 

S- 5 
6-17 



18- 35 



Description 
(continued) 



Content 

Not used 

I = order number for data array 
KMEGA for this member. 
KMEGA(I) is the KMEGA ar- 
ray pertaining to this member. 

Not used 



KYOUNG 77072 



KSHEAR 77071 



KEXPAN 77070 



5.4.4 Optional member input data 

KPSI 77143 Member rotation table, MEXTN long. It 

contains the Beta angles for each mem- 
ber (zero length if no Beta angles are 
specified). 

Table of Young f s moduli for each mem- 
ber. MEXTN long if IYOUNG = 1; 
otherwise zero length 

Table of shear moduli for each member. 
MEXTN long if ISHEAR = 1; otherwise 
zero length. 

Table of coefficients of thermal expansion 
for each member, MEXTN long if 
IEXPAN = 1; otherwise zero length. 
KDENS 77067 Tables of densities or unit weights for 

each member. Length MEXTN if 
IDENS = 1; otherwise zero length. 

5 4. 5 Load input data 

LINT 77073 Internal loading numbers. Loading con- 

ditions are assigned sequential num- 
bers during input. To eliminate deleted 
and combination (that is, dependent) 
loading conditions, internal numbers 
are also assigned in PHAS1B, where 
the parameter NLDSI is also assigned. 
The relation between the two sequences 
of loading numbers is given by: 

LINT(J) = JC where 1 < J ^ LEXTN 
and JC = 1,NLDS 

MLOAD 77076* Member-load data arrays. MEXTN data 

arrays (see LOADS). 

JLOAD 77075* Joint- load data arrays. JEXTN data ar- 

rays (see LOADS). 



Codewords 



53 



Name Address 

(continued) (continued) 

5 4o5 (continued) 



Description 
(continued) 



LOADS 



77141* 



Load data- reference arrays. LEXTN 
data arrays containing headerwords, 
the loading name in BCD and cross- 
reference words to each joint and mem- 
ber load (in MLOAD and JLOAD) belong- 
ing to this loading condition 
The relation and makeup of the MLOAD, JLOAD, and LOADS 
arrays are now shown. 



JLOAD (JA) 

or MLOAD (JA) 

3 17 



LOADS(JC) 







NKPL 




1 






NBL 




2 




BLOCK 1 


3 




2 LABELS followed 






by N-2 data words 






N words for each 






load on this joint 






or member, 






Each block contains 






2 labels and N-2 






data words. 




i 


< 


NDEX 


JC 


ILD 








N 


J 


K 






r 


BLOCK IBL 




♦ 










BLOCK NBL 





IPL 







3 17 


31 


35 


1 


LTYP 


NLD 


IPRNT 


2 




NLS 




3 
14 


Name for loading con- 
dition JC (12 BCD words) 


15 


LABEL 1 




1 label word per load 
in this condition ref- 
erencing JLOAD(JA) 
of MLOAD(JA) 


ILD+14 


Label ILD 
NDEX 


IPL 


JA 




3 17 35 


NLD+14 


LABEL NLD 



NDEX N 



Load Type 



1 8 Joint load 

3 14 Member- end load 

4 8 Member distortion 

2 6 Member load 

5 8 Joint displacement 

NLD = Number of loads in loading condition 
NLS = Number of words available for labels 

NBL = Actual number of loads. First word of load block zero if the 
load is deleted and is not counted. 
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Name Address 

(continued) (continued) 

5. 4 5 (continued) 



Description 
(continued) 



LTYP = Loading condition type (0 ■= deleted, 1 = independent, 2 = 

dependent) 
N = Length of block including a two- word label 
J = Load direction,, Only applicable for member loads 
J = 1 FORCE X 

= 2 FORCE Y 

= 3 FORCE Z 

= 4 MOMENT X 

= 5 MOMENT Y 

= 6 MOMENT Z 
K = Load type (1 = concentrated, 2 

applicable for member loads c 
JA = Joint or member number 
JC = External loading number 
NDEX = load type 

5 4 6 Computed member properties 



uniform, 3 = linear) „ Only 



KS 



77137 



First-level array, (NCORD+1) words per 
member, Unsigned length followed by 
signed projections of member length 
(plus to minus joint) for each member, 
Total length MEXTN*(NCORD+l). 



1 


Length 




2 


AXj 




3 


AX 2 


Member 1 


4 


AX 3 










(I-l)*(NCORD+l) + l 


Length 




+2 


AXi 




+ 3 


AX 2 


Member I 


+4 


AX 3 


Only if space 
Structure 
[ (NCORD=3) 







KMKST 



KSTDB 



77136* 



77135* 



Local- member stiffness table, containing 
each member stiffness (or flexibility) 
matrix in local- member coordinates* 
MEXTN data arrays, each NSQ long. 

Member stiffness table, containing 
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Name Address 

(continued) (continued) 

5 4o6 (continued) 

KSTDB (continued) 

KMEGA 77103* 



Description 
(continued) 



member stiffnesses in global coordi- 
nates,, NB data arrays, each NSQ long» 
Second- level array NPR data arrays,, 
NPR = total number of members with 
releases at the start Auxiliary arrays 
(JF*JF) set up in MRELES- FIXM. 
Used in LOADPC-LSTORo 



5. 4 7 Computed structure properties 

KDIAG 77113* Structure stiffness table, containing the 

diagonal stiffness submatrices. NJ 
data arrays, each JFXJF„ 
KOFDG 77112* Structure stiffness table, containing the 

nonzero off- diagonal (JF*JF) subma- 
trices in the lower triangle of ATKA, 
according to IOFDG. NB data arrays 
up to JRELES. Redefined NBB long 
in JRELES and SOLVER. 
IOFDG 77111* Address and position table for the non- 

zero submatrices of A^KA* One data 
array per joint (or row of A^KA). Each 
data array contains 

1st word: Address: current defined 
length of array = LDE 
Decrement: current number 
of entries for existing sub- 
matrices in this row = LCU 
2nd word to (LCU+1): 1 word per exist- 
ing submatrix 
in this row. 
Address: order position of 
submatrix itself in KOFDG 
table 

Decrement: column order 
of submatrix 
IOFC 77077* Logical transpose of IOFDG. One data 

array per column of A*-KA (only free- 
joint portion). One word per nonzero 
submatrix in that column stored the 
same way as words 2 to (LCU+1) in 
IOFDG. IOFC, however, does not have 
the leader word with LDE and LCU C 
Arrays are generated during forward 
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Name Address 

(continued) (continued) 



5.4.7 (continued) 
IO F C ( c ontinue d) 

IFDT 77104* 



Description 
(continued) 



sweep of SOLVER and used in backward 
sweep of SOLVER. __ 

Logical table for A^KA. Each off- diagonal 
submatrix of the lower half of A KA is 
represented by a single binary bit 
Each data array of IFDT is 200 words 
long and can thus represent 200*36 = 
7200 submatriceSo Bits are stored 
from right to left by columns in each 
word representing A^KA, A 1-bit re- 
presenting an existing submatrix and 
a 0-bit a nonexi sting matrix. For ex- 
ample, a 1 bit in the last position of 
the first word of IFDT(l) means that 
A KA has a nonzero submatrix row 2, 
column 1. Thus the IFDT table can be 
used only to determine whether or not 
a certain submatrix is present or noto 
Information as to where that submatrix 
is stored is contained in IOFDG. 

Auxiliary matrix if joint releases are 
present. Dimensions of flexibility,, 
NDAT data arrays, each JF*NDAT*JF 
long. Only those data arrays are allo- 
cated that have at least one nonzero 
element. Each data array represents 
JF rows. 

5o4.8 Computed load data 

KPPLS 77133* Member- end force matrix in global coordi- 

nates, containing the force vector in 
each member at the start (plus end)„ 
NLDS data arrays, each MEXTN*JF. 

KPMNS 77132* Similar to KPPLS, but for the end (minus 

end) of the members. 

KUV 77131* Member- distortion matrix in global co- 

ordinates, containing the distortions 
V for each member, NLDS data arrays, 
each MEXTN*JF. 

KPPRI 77130 Effective joint- load matrix, containing 

the external loads P 1 applied to each 
free jointo After SOLVER it contains 
the solution' displacements. NLDS*NFJS. 



MEGAO 



77107* 
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Name Address 

(continued) (continued) 



5. 4 8 (continued) 



KR 



77127* 



KPDBP 



77102 



Description 
(continued) 



Statics check matrix,. Contains the ap- 
plied loads at the free joints and the 
support- joint reactions as obtained 
from backsubstitution if a statics check 
is requestedo NLDS second- level ar- 
rays, each NJ*JF long. __ 

Effective support- joint load matrix P » 
containing P 1 after FOMOD, and tj 1 
after DEFSUP (if there are support 
releases). Length JF*NDAT*NLDS. 
If there are no joint releases, it con- 
tains zeros after BAKSUB, with length 
JF*NDAT. 



5o4o9 Miscellaneous 



KSAVE 



KSRTCH 



77126 



77125 

to 
77114 



Number of words used to store the initial 
data specifications after the first 
SOLVE THIS PART. (This is not a 
codeword referring to an array.) 

Scratch-array codewords 



Chapter 6 



DESCRIPTION OF SYSTEM COMPONENTS 



In this chapter, a general description of the program compo- 
nents is given The description serves primarily as a guide in 
studying the detailed flow charts and program listings in the Ap- 
pendices A and B For the convenience of persons intending to 
modify the system, the important coding conventions used in the 
system are also summarized in this chapter,. 



6. 1 General Organization 



Because of its size, the STRESS system has been partitioned 
both functionally and physically. The functional partition con- 
sists of the three phases of the processor: 

1 Phase la— reading and decoding of input 

2 Phase lb— consistency checks and compilation 

3 Phase II — execution 

The physical partitioning of the system is accomplished by 
separating the system into program links, which are loaded, 
one at a time, in memory by the modified CHAIN subroutine 
described in Section 2.2. At the present, the processor is 
broken up into six links. The first link contains Phases la and 
lb, and Links 2 through 6 make up the execution phase. If 
it were desired to make more core storage available for data, 
the system could conveniently be broken into ten program links 

In addition to Phases la and lb, the first link contains the pro- 
cedures for the error returns from all execution links, as well 
as the normal return from the last (backsubstitution and output) 
link. Finally, this link also contains the programs for SELEC- 
TIVE OUTPUT and PRINT DATA procedures,, 

The general flow of the computation process is shown in the 
Over-All Flow Chart, Appendix A (page 93). The normal opera- 
tional mode of the system treats the input in a two-level loop. 
The outer loop cycles on the independent problems in the input 



58 



Input Phase: Phase la 59 

batch, and is terminated when the input file is exhausted,, Each 
independent problem, or job, is initiated by a STRUCTURE state- 
ment and terminated when a SOLVE or FINISH statement is proc- 
essed,, The number of problems that can be handled in succession 
is not limited. For each individual problem, the normal process 
consists of an inner loop sequentially through Phases la, lb, and 
II until all modifications have been processed,, A problem without 
modifications obviously involves just one cycle through the inner 
loop. Again, the number of modifications for a given problem is 
not limited. 

The normal process of the inner loop can be interrupted by one 
of the following three occurrences: 

1„ A consistency error in Phase lb, signifying that the prob- 
lem (or the modification being processed) is not executable; 
Z A fatal error in the execution phase; or 
3o A memory overflow at any stage of the computation. 

When any one of the three possibilities occurs, identifying 
messages are printed out and control is transferred to the first 
link. The system then is automatically placed in the scanning 
mode. In this mode, any remaining statements pertaining to the 
problem being processed are scanned only for possible input er- 
rors, but no further execution takes place. The scanning mode 
is terminated either when the SOLVE or FINISH statements are 
encountered, or when the STRUCTURE statement of a new prob- 
lem is read. 

The diagnostic information printed after an interruption identi- 
fies the type of interruption that has occurred, and, in the case 
of a consistency or execution error, the problem statement can 
be corrected and resubmitted. At the present, there is no auto- 
matic procedure available to further partition data arrays and/or 
program segments in case of a memory overflow. 

The general logic of the execution phase is shown in the Over- 
all Execution Flow Chart, Appendix A (page 94). It can be seen 
that, whenever a logical choice exists, the program link in core 
memory determines the next link to be called. 

In the succeeding three sections, the operation of the three 
functional phases are described in greater detail. 



6.2 Input Phase: Phase la 

PHAS1A is called from the main program of Link 1 and con- 
trols all statement input. (A familiarity with Chapters 2, 3, and 
5 will help the reader understand this section: Chapter 3 de- 
scribes the structure of the input programs, while Chapter 5 
lists the form of data storage.) Data storage is concerned with 
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the following scalars and arrays defined in Chapter 5: 



Scalar s 


Arrays 


ID 


NAME 


IMETH 


MODN 


NB 


JTYP 


NJ 


KXYZ 


NDAT 


KJREL 


NLDS 


JPLS 




JMIN 




MTYP 




MEMB (second- level) 




KPSI 




KYOUNG 




KSHEAR 




LOADS \ 



MLOAD) (second- level) 
JLOAD J 

In addition numerous scalars are used for logical control during 
input and counters for consistency checking. Since input for ini- 
tial specification and modification is handled by the same program, 
ICONT and IMOD are important branching scalars. 

6.2. 1 Array status during input. In order that the processor 
not be limited greatly by problem size, a dynamic memory- con- 
trol system is used. It is desired then that during inputting only 
the arrays needed at any one point in the process be allocated and 
not released,, For convenience, however, a few arrays are left 
in an allocated status during inputo They are KXYZ, JPLS, JMIN, 
KPSI, JTYP, and the codeword arrays of MLOAD, JLOAD, and 
LOADS. All other arrays are allocated when needed and imme- 
diately released. 

With an initial problem specification, these arrays cannot be 
allocated until the appropriate size descriptors, the NUMBER 
statements, are read. In addition to defining and allocating these 
arrays, subroutine SIZED (the subroutine called for by a NUM- 
BER statement) defines KJREL, MTYP, and others. With a 
MODIFICATION OF LAST PART, these arrays are allocated as 
soon as the MODIFICATION statement is read. For MODIFICA- 
TION OF FIRST PART, the machine status prior to the release 
of these arrays is restored. 

6o2 2 Error flagging. A single word, CHECK, is used to re- 
cord the errors of commission and omission. Each bit in this 
word (only 21 bits are presently used) corresponds to an error, 
with the error indicated with the bit set to zero. Boolean state- 
ments are used to either "mask" out bits or "or" in bits. Upon 
reading the STRUCTURE statement, all commission- error bits 
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are set to one, 

If an error is detected during input, the inputting program ter- 
minates statement translation and branches to the appropriate 
point to mask out the corresponding bit in CHECK and print an 
identifying error message below the statement echo print (shown 
as "SEP" for n set error parameter" in the flow charts). Conversely, 
upon detection of a statement considered required for solution a 
bit is "or f d" into CHECK (shown as SCP for "set check parameter" 
in the flow charts) during translation. PHASIB adds to CHECK 
during its consistency checking and analyzes the word for accu- 
mulated errors. 

6. 2. 3 Data storage. ID is computed from the words in the 
type statement. The numbers used in the computation are the 
word positions in the dictionary as returned by function MATCH. 
Similarly IMETH is set after translating the METHOD statement,, 
Subroutine SIZED may be entered after reading a NUMBER state- 
ment or during modification upon encountering a number, joint, 
or loading number higher than any previously encountered,. When 
entering from a NUMBER statement during an initial problem 
specification, the number is stored and arrays defined and al- 
located,, When so entering during modification, the only action 
performed is to store the number unless that number is greater 
than its corresponding maximum number counter (that is, MEXTN 
to NB), in which case redefinition of arrays is also performed 
and the maximum counter set to the number. 

During joint, number, and loading data input, input counters 
are incremented during initial input and additions modification. 
JJC is incremented for free joints, JDC for support joints, JMIC 
for member incidences, JMPC for member properties, and NLDG 
for loading conditions. For change modification, the two counters 
that might change are JJC and JDC and then only if the joint type 
is changed. For deletions, the appropriate counter is decremented. 
For a member deletion, both JMIC and JMPC are reduced. At pres- 
ent the programs do not check for numbering commission errors 
before altering the counters. An example would be the specifica- 
tion of two joints with the same numbers. Program changes for 
this additional error detection are minor. 

Storage of data in the arrays NAME, MODN, JTYP, KXYZ, 
JPLS, JMNS, and MTYP are performed in a straightforward 
manner. Part of MTYP is specified from the member properties 
and part from member releases. With no ordering restrictions 
desirable, the parts are treated separately by either packing 
parts separately or treating the word logically. KJREL is re- 
defined five words longer for every new released joint. When 
joint releases are specified, the array is searched to determine 
if releases at that joint have already been specified. If not, a 
new five- word group is appended for an initial specification or 
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additionSo The release code is then logically treated with the 
appropriate word D The logical treatment is for initial specifica- 
tion or additions 

B U(IJ)=U(IJ)+A 

where the B specifies a Boolean statement, U(IJ) is the word 
where the code is stored, A is the newly specified code, and ,! + lf 
is the "OR" operator,, For changes, the operation is 

B. U(IJ)=(U(IJ)*Mask)+A 

where "*" is the "AND" operator and the mask deletes all possible 
releases. For deletions, the operation to eliminate the specified 
components is 

B U(IJ) = -(-U(IJ)+A) 

where "- " is the "COMPLEMENT" operator. In addition to joint 
releases, member releases and tabulate codes in the LOADS ar- 
rays are so treated: the masking in the changes modification is 
necessary to preserve the other parts of the storage word in these 
latter cases. 

Member properties and load data (including distortions and dis- 
placements) are stored independently of the structural type. All 
of these data are read in subroutine READ and stored temporarily 
in an array together with an array for label numbers. The label 
numbers give the position in the subarray MEMB for the data 
pieces for prismatic members. For variable- segment properties, 
the label number gives the position in the group of words for the 
segment, with seven words reserved for each segment. 

Storage of load data is performed in a similar fashion in sub- 
routine READo The label numbers refer to positions for the data 
in a load block appended on the subarray of MLOAD or JLOAD. 
A cross-reference system is established with the subarray of 
LOADS so that the loads can be referred to during modification 
by loading conditions. 

Modification of load, joint, or member data by changes super- 
imposes specified quantities on the original data after locating 
the data position in the case of loads. For deletion of loads, the 
reference word in the array LOADS and the first word in the load 
data block are set to zero, thereby erasing the load block. Addi- 
tions operate as initial data input. 

6. 2. 4 Selective output. The selective -output mode can be 
used to print previously calculated results in an interpretive 
manner. A solution upon which to operate must be available, so 
that all print requests must follow a SOLVE THIS PART and pre- 
cede a MODIFICATION OF FIRST PART if given. 

The SELECTIVE OUTPUT statement initiates this mode by 
setting IMOD=Z, that is, CHANGES modification. This parameter 
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has been so set in order to use the program part under LOADING 
to read the loading condition number upon which to operate with- 
out requiring additional programming. The program part used 
for the branch on PRINT reads and retains an index for a word 
designating an output type and calls subroutine SELOUT for each 
joint or member number encountered. 

Subroutine SELOUT sets parameters for the printing of results 
performed by subroutine ANSOUT. SELOUT retains information 
on the previous output request and determines what titles should 
be printed. If the loading condition changes, the structure name, 
the modification name, if any, and the loading title are printedo 
The table heading is printed if the request type has changed, and 
the joint- status label is printed if the joint type has changed. 
These last two are printed in ANSOUT, but the logical param- 
eters for the printing are set in SELOUT. 

6.Z.5 Termination. The input phase is exited for any of the 
following reasons: 

1. Reading a SOLVE or SOLVE THIS PART when not in the 
scanning mode, 

2. Reading a SOLVE when in the scanning mode. 

3. Reading a FINISH statement. 

For the first case, processing continues with PHAS1B. After 
the return from PHAS1B the process immediately returns to the 
main program of Link 1. This main program checks whether to 
proceed with execution, terminate the problem, or enter the 
scanning mode, which returns to PHAS1A. The scanning mode 
is not terminated with a SOLVE THIS PART, only a SOLVE or 
FINISHo A problem is terminated after scanning by returning 
to the main program, that is, ISCAN=2„ The FINISH statement 
simulates this form of termination by setting ISCAN=2 and re- 
turning to the main program. 

A modification counter, ICONT, is incremented when SOLVE 
THIS PART is read, or it is set to zero for SOLVE. 

An interruption of processing may also occur as a result of a 
memory overflow. This return, regardless of its logical location 
in the processor, enters the start of the main program in Link 1. 
If the overflow occurred during input (ISOLV=l) or after a SOLVE 
THIS PART (ICONT^O) additional input for the problem may 
still remain to be processed. For this case the scanning mode 
is also entered. 



6. 3 Checking Phase: Phase lb 

Subroutine PHAS1B controls and performs the input- consistency 
checking and compilation function of the processor. These two 
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tasks are not, however, physically separated in the programs. 

Joint processing involves three operations in one loop on all 
joint numbers, performed if the joint- input counters correspond 
to the NUMBER specification. The first operation is to prepare 
two tables of internal- external number correspondence. Inter- 
nally, all support- joint numbers are greater than the number of 
free joints (NJ-NDAT). The internal numbers are assigned for 
support joints starting with NJ to NJ-NDAT+1 in the order they 
are encountered in the loop on sequential external numbers. Free- 
joint numbers are assigned from 1 to NJ-NDAT. For all existing 
joints that have loads applied to them, the load type for each load 
block is checked. For a free joint, joint displacements (INDEX= 
5) specified at the joint constitute an input error. Conversely, 
joint loads (INDEX=1) specified at a support are not permissible 
unless the joint has been released in the direction of the load. 
In this latter case, a check is made of the array KJREL to see 
if the joint has been given some releases. If so, no error is 
flagged, but no check is made on the correspondence of the re- 
lease and load directions. For joints deleted during the last in- 
put specification (JTYP=3), all loads on the joints are erased as 
well as their references in LOADS. A check is made to assure 
that no joint releases are given at a free joint. 

Member processing primarily performs the implicit deletions. 
The incidences of each member are checked. If in error, the 
error is flagged. If one of the joints has been deleted, the mem- 
ber is deleted by zeroing its type and erasing its properties. For 
deleted members any existing loads are erased as well as the 
references in LOADS. The member counters are checked against 
the NUMBER specification after all implicit deletions have been 
performed. 

Processing of the loading condition consists only of a check on 
the number given and the assignment of internal numbers, in a 
manner analogous to the internal joint numbers, for independent 
and dependent loading conditions. The bit pattern in CHECK is 
compared with a mask and all noncorrespondence causes an ap- 
propriate error message to be printed by subroutine PRERR as 
given in Section 5. 1. If no errors were detected, the processing 
proceeds. 

After the first specification with SOLVE THIS PART (ICONT = l) 
the input data are saved for later specification of MODIFICA- 
TION OF FIRST PART. This is done by creating a file with an 
image of the pertinent data in core at this time. All data from 
the location of TOP down to the next location available in the pool 
are saved. No information is lost if a memory reorganization 
has occurred during input since all file numbers of data on tape 
are less than the file number of the saved image and are refer- 
enced in the image. The restoration of this condition consists 
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of simply reading this file back into core and rewinding all scratch 
tapes to make their position references consistent,, 

Many arrays are defined at this point. For all but two of these 
the sizes will not change during execution. The number of sub- 
arrays of KOFDG will be NB_ at_the end of the generation of the 
structural stiffness matrix A^KA and the codeword array is de- 
fined as NB long at this stage. The number of elements in the 
subarrays of IOFDG will also grow during the solution of the equa- 
tions, but the number needed up to the end of the generation of 
A KA is determined from the incidence. As the incidence tables 
for the joints are compiled by members, the maxima of the inci- 
dences are counted for each joint. The subarrays of IOFDG are 
then defined to this length plus a small amount for expansion for 
free joints,, 



60 4 Execution Phase: Phase II 

The execution phase consists of Links 2 through 6, and operates 
as described in Sections 6.4.1 through 6 4.6. 

6. 4. 1 Link 2 

1. MEMBER. See also flow chart for MEMBER (page 151). 
Generates all member stiffnesses K" % = KMKST in member 
coordinates. Loops on members 1 to MEXTN. Raw data 
(properties of cross sections, flexibility matrix, or stiff- 
ness matrix) are obtained from MEMB. If stiffness is given, 
KMKST is filled directly. If flexibility is given, it is di- 
rectly inverted and stored into KMKST. If cross- section 
properties are given, MEMFOD computes F" c and MEMBER 
computes K* = F*~ l . Trusses are handled on a separate 
branch because their stiffness or flexibility in member co- 
ordinates has only one component and is therefore singular. 
If a singular flexibility matrix for a frame is encountered 
because not enough member properties have been given or 
because a singular flexibility matrix has been specified, 
the member is geometrically unstable (no stiffness matrix 
exists). This is considered a fatal error: a message is 
printed for each unstable member and processing of this 
problem is terminated upon return to the main program. 

2. MRELES. See flow chart for MRELES (page 153). If there 
are any member releases (NMR^O), MRELES modifies the 
stiffnesses KMKST corresponding to the released members 
and stores them back in KMKST. 

A loop on members is initiated and for each released 
member (Check MTYP) K' % is modified according to the 
procedure of Chapter 4: first for the releases at the end 



66 Description of System Components 

of the member (if any), and then for those at the start. If 
a member is so released that it becomes geometrically 
unstable, a singular stiffness matrix K 2 2 will result. The 
illegal combination of releases is detected and an error 
message is printed. Such errors are treated as fatal 
(ISUCC set to 2), but all members are checked for illegal 
releases before execution is terminated upon return to the 
main program of Link 2. If a member is released at the 
start, an auxiliary submatrix that appears during the re- 
lease process is later needed in the load processor when 
the fixed- end forces on the member are modified for the 
prescribed releases. (See Section 4„ 2.) These matrices 
are stored in a second- level array KMEGA. KMEGA mat- 
rices are stored only for members released at their start, 
and a member- to- KMEGA correspondence table is kept in 
MTYP1. 

6, 4, 2., Link 3, LOADPC. See flow charts for LOADPC and 
LOADPS (pages 166 and 168) and Section 4.3. This link proc- 
esses the raw data for loads into contributions to member dis- 
tortions, member forces, and joint loads in the kinematically 
determinate system, taking into account member releases. 
LOADPC is the monitor routine, with a loop on members (1 to 
M'EXTN) and one on joints (1 to JEXTN). For each nondeleted, 
loaded member or joint, all corresponding load data in MLOAD 
or JLOAD are allocated and control is transferred to LOADPS 
which monitors the processing of one MEMBER or JOINT for all 
loads in all load conditions . This method of processing is con- 
venient because all load raw data are stored by joint and member, 
However, it may require the repeated allocation and release of 
the resulting internal arrays KUV, KPPLS, and KPMNS, because 
these are partitioned by loading condition. 

No fatal errors can result in LOADPC. Nonfatal errors are 
detected in MEMBLD if member loads are prescribed on mem- 
bers for which the flexibility or stiffness matrix were given as 
direct input. In such cases it is not possible to compute fixed- 
end forces due to loads acting between the end joints of the mem- 
ber o A message indicating this incompatibility is printed and the 
particular load is ignored. 

6 4. 3 Link 4 

1. TRANS. See flow chart for TRANS (page 185). Subroutine 
TRANS rotates all member stiffnesses K' ,% (reflecting mem- 
ber releases) from local- member coordinates into joint 
coordinates with origin at the end joint of the member, A 
single loop on members (1 to MEXTN) with a call to TRAMAT 
and MATRIP inside the loop makes up the subroutine. The 
rotated member stiffnesses K are stored in KSTDB. 
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2. ATKA. See flow chart for ATKA (page 186). Subroutine 
ATKA generates the logical tables for the structure stiff- 
ness matrix At KA (KDIAG, KODFG, IFDT, IOFDG) by 
bookkeeping from the incidence tables A (JPLS, JMIN) and 
the primitive stiffnesses K (KSTDB). If in the modification 
mode, the data arrays of IFDT, IOFDG, and KDIAG are 
first cleared. The tables representing the structural stiff- 
ness are generated by a loop on members (1 to MEXTN) 
and by adding to KDIAG, KOFDG, IFDT, and IOFDG the 
proper contributions in the rows and columns corresponding 
to the start and end joint of the (nondeleted) member. All 
tables are generated disregarding all effects of possible 
joint releases prescribed. Only the lower left half of A^KA 
is generated and stored„ 

3. JRELES. See flow charts JRELES through STEP5 (page 187). 
This set of subroutines is called only if there are joint 
releases (NJR^O). JRELES is the monitor routine to 
modify the tables generated in subroutine ATKA accord- 
ing to the theory of Chapter 4, to reflect the effect of 
joint releases. Subroutine FOMOD does the corresponding 
modification on the effective joint loads 0>* . This pro- 
cedure eliminates all kinematic • unknowns associated with 
support joints. (Joints are internally arranged so that 
support joints are numbered last.) In the case where 

all joints are support joints the auxiliary array stored 
in KPDBP by FOMOD represents the displacements of 
the support joints and is the solution to the governing 
equations. 

All formal matrix operations implied by the equations 
of the procedure outlined in Chapter 4 are done by book- 
keeping. Only those operations (multiplications of submat- 
rices) are performed for which both submatrices are not 
zero matrices. Also, all arrays, such as AR, (AR)t etc , 
are stored in logical tables. This results in an efficient 
processing. The only operation which is done formally is 
the inversion of the auxiliary matrix K 33 . Subroutine STEP5 
which performs the actual modification of A^KA using the 
auxiliary ari^ay MEGAO is called only if there are any free 
joints (NFJS=£0). It is noted that if no members connect 
any two support joints the auxiliary arrays K 33 and MEGAO 
are hyperdiagonal and the necessary operations are greatly 
simplified. 

6.4.4 Link 5. SOLVER. See flow chart for SOLVER (page 
200). Subroutine SOLVER solves the governing joint stiffness 
equations for the free- joint displacements. The method used is 
the Gauss elimination procedure for a symmetric system, oper- 
ating on submatrices of order JF as elements, rather than on 
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scalars. Apart from certain subsections of the bookkeeping sys- 
tem (IOFDG, IFDT, IOFC) the maximum amount of data required 
in core at any one time consists of three submatrices of order 
JF, plus the total load vector^ 1 „ This vector could also be par- 
titioned into second- level arrays, preferably by joints. This 
would result in an improvement of speed and capacity for large 
problems, say NFJS larger than 200„ 

All the required operations are determined by the bookkeeping 
system, and only the required multiplications of submatrices are 
actually performed,, The process consists of a forward sweep 
during which logically a triangular matrix is generated, and a 
backward sweep proceeding from the last free joint upward and 
solving successively for the displacements of the free joints,, 
Since during the backward sweep the operations are on columns 
of the lower triangular matrix, the bookkeeping arrays IOFDG, 
representing rows, are completely released and corresponding 
column arrays IOFC are generated as rows of the system are 
eliminated during the forward sweep. Since new arrays in 
KOFDG, which were zero in the original matrix A^KA, are gen- 
erated during the solution process, the bookkeeping arrays IFDT, 
IOFDG, and the codeword array of KOFDG must constantly be 
updated as new arrays are generated,, Also the codeword array 
must be redefined with larger length. This redefinition is done 
in increments depending on the size and the connectivity of the 
structure Data arrays of IOFDG must also be redefined for 
greater length. These same problems of updating and redefining 
arrays are also present in JRELES, since the modification of 
A KA for joint releases can also imply new elements in KOFDG. 

6.4.5 Link 6. BAKSUB. Subroutine BAKSUB is the monitor 
subroutine for the process of backsubstitution (solving for induced 
member distortions and member forces from the known joint dis- 
placements) and printing of answers in tabular form. The induced 
member distortions and member forces are directly added to the 
components of the kinematically determinate system, computed, 
and stored in LOADPC (see also Section 4.3). At the same 
time a statics check is performed by summing all member forces 
at each joint. A comparison of these sums (stored in KR) with 
the applied joint loads provides a useful check on the numerical 
accuracy (round- off errors) of the solution,, 

The whole process is accomplished by a first outer loop on ex- 
ternal loading conditions (1 to LEXTN), and a second inner loop 
on members (1 to MEXTN), For each member and independent 
loading condition, the member distortions are obtained by vec- 
tor ially subtracting the displacements of its end joints, then 
rotating them into member coordinates. The induced member- 
end forces are then obtained by pre multiplying these distortions 
by the member stiffness K* . These operations are done in sub- 
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routine AVECT. Note that the local stiffness table -K* was com- 
puted in Link 2 and was not used after subroutine TRANS until 
the time of backsubstitution. During the intervening processing, 
the KMKST arrays are in a released status and could have been 
dumped on tape if the memory space was needed for other infor- 
mation,, The array is allocated again in BAKSUB and completely 
released after BAKSUB„ The statics check is performed by a 
call to STATCK in the outer loop after completion of the loop on 
members. If the loading condition is a combination, a call to 
COMBLD is made instead of the entry to the inner loop, COMBLD 
takes the proper linear combinations of all total member distor- 
tions, member forces, joint displacements, and reactions (statics 
check KR) of the corresponding independent loading conditions. 
All these independent loading conditions are already processed 
at the time when the combination is treated. This is the reason 
why combination loadings can be dependent only on previously 
specified conditions. The last step inside the outer loop is a 
series of calls to ANSOUT. Such a call is made for each group 
of requested tabulated results for each loading condition. A max- 
imum of four calls per loading condition in the case of a TABU- 
LATE ALL request (member forces, member distortions, joint 
displacements, reactions) is made. 



6. 5 General Coding Conventions 

The following conventions adhered to throughout the system are pre- 
sented for the convenience of persons intending to modify the system. 

6. 5. 1 Clearing of arrays. Since Phase la resets all codewords 
to zero for every new problem but not for a modification, data 
arrays can be assumed to contain zero only for new problems. 
This makes it necessary in various places to clear certain data 
arrays during execution phase if in the modification mode (for 
example, IOFDG, KDIAG in ATKA), Clearing is done by a state- 
ment of the form CALL CLEAR (NCODWD), where NCODWD is 
the codeword name of the data array to be cleared. No codeword 
array should be cleared in this way, as this would destroy the 
reference system for any future reorganization. 

Second- level data arrays are cleared as follows: 

ICDWDZ=ICDWD1+I 

CALL CLEAR (IU(ICDWD2)) 

The array name is ICDWD1. Subroutine CLEAR sets the array 
elements to zero if the array is in core, or erases the file num- 
ber if the array is on tape. The latter action makes the array 
appear unused, and its elements will therefore be set to zero 
upon allocation. 
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6,5.2 Packing and unpacking routines. For a number of pur- 
poses information about members, joints, loads, etc. , is packed 
into various portions of the 36-bit machine word. Packing and 
unpacking functions have been written in FAP but can be called 
by FORTRAN to pack or unpack. Two such routines are used in 
the processor for storage according to various arrangements 
within the word. The two routines are PACKW, UPACW and 
PADP,UPADP. 

1 PACKW, UPACW packs or unpacks the FORTRAN integers 
I, K, J, L, M into or from U(IA) according to the following 
figure: 



PACKW (U(IA), I, K, J, L, M) 
S12 17 23 



29 



35 



I 


K 


J 


L 


M 



2 PADP, UPADP packs or unpacks the FORTRAN integers 
I, J, K into or from U(IA) 



PADP (U(IA),I, J,K) 
S12 17 



35 



I 


J 


K 



See the listings of these routines for the format of the packed 
data c 

6,5o3 Matrix multiplication routines. The execution phase 
uses four different service subroutines that perform matrix mul- 
tiplication according to different conventions. These subroutines 
are all written in FORTRAN. Their efficiency could be increased 
by rewriting them in FAP . 

MAMUL ( Y, T, A, JS, JT, J J) used by MRELES 
MATRIP (K1,K2,NT) used by TRANS, ATKA, BAKSUB 
MAPROD (N1,N2,N3,N4,IZ, JF,IND) used by JRELES 
MAPRDT (N1,N2,N3,N4,IZ, JF, NP) used by SOLVER 

6,5.4 Organization of the program links. Each link has a 
short main program that performs the calling of main subroutines, 
updating of the solution stage counter ISOLV, and testing for solu- 
tion failure (ISUCC). Each link also contains the basic service 
subroutines, that is, START, PRER2, CLEAR, CHAIN, etc. 
The master subroutines in each link, that is, the first level of 
subroutine below the main program, generally perform the fol- 
lowing functions: 

1, Allocate needed arrays 

2. Operation (generally, a series of loops on members and/or 
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joints), with various calls to lower level subroutines 
3 Release arrays no longer needed in the next operation 

Typical examples of such master subroutines are LOADPC, 
MRELES, MEMBER, etc 

Additional calls to ALOCAT and RELEAS occur at lower-level 
subroutines, especially with respect to second- level data ar- 
rays only temporarily needed, even within one link« (Example: 
KOFDG, IOFDG in SOLVER,) 

6.5o5 Address computations in FORTRAN. Each subroutine 
contains the array names U and IU at the beginning of its com- 
mon list (if any) and an equivalence statement for U and IU. This 
places both U and IU at the top of common starting at (7746 1) 8 and 
any data in the variable pool (or the first- data area) can be ref- 
erenced as an element in the one-dimensional array U (for floating- 
point data) or IU (fixed point) . This is possible because FORTRAN 
does not check whether the subscripts of an array exceed the size 
of the corresponding dimension statement,. All data in the vari- 
able pool are therefore referenced as U (IADR) or IU (IADR) 
where IADR will usually be computed from codewords. 

60 5o 6 Allocation of arrays. Caution must be exercised when 
temporarily needed arrays are allocated. It must always be re- 
membered that any call ALOCAT (or a redefinition of an array) 
could cause a memory reorganization to take place, depending 
on the size and makeup of the particular problem. Therefore 
any array subscript that is computed from a codeword, such as 
I=MTYP+JM, IA=IU(I), must be assumed to be destroyed by either 
an allocation or a redefinition of an array; that is, no such ad- 
dress computations can be "carried past" an allocation or re- 
definition, This frequently requires that an address be recom- 
puted after such allocations. For example, if the second- level 
data array MEMB(I) is used in a loop on I, the codeword array 
will usually be allocated and released before and after the loop, 
respectively, but the allocation and release of the I^ 1 data array 
must be done inside the loop Q Because of this allocation inside 
the loop, it is not only necessary to compute the address of the 
data array anew each time but also the address of the codeword 
array itself, since the allocation of the I tn data array could re- 
locate both the codeword array and the data arrays. Thus the 
following sequence must be used: 

CALL ALOCAT (MEMB, 0) 
DO 100 1=1, MEXTN 
CALL ALOCAT (MEMB, I) 
I1=MEMB+I 
I1=IU(I1) 
C GET NTH WORD OF I TH ARRAY 
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IADR=I1+N 
WORD=U(IADR) 
C NECESSARY OPERATIONS ON WORD 

100 CALL RELEAS (MEMB, I) 
CALL RELEAS (MEMB, 0) 



6,6 Bookkeeping System for the Solution of the Equations 

6,6o 1 The bookkeeping system. The linear structural analysis 
problem for elastic lumped- parameter systems involves the solu- 
tion of a set of simultaneous algebraic equations for the unknown 
joint displacements u ! if the stiffness approach is usedo These 
equations are of the form: 

jfU' = &* jf = APKA (6 1) 

Even though advantage is taken of symmetry and only the lower 
half of A t KA is stored, for larger structures it is not possible to 
store the complete matrices j^ and $ x in core at one time. These 
matrices must be blocked into smaller arrays, operated on se- 
quentially, and those parts that are currently not needed for com- 
putation stored in secondary bulk storage if necessary (for ex- 
ample, magnetic tape) The form and size of the matrix ^de- 
pends on the connectivity of the structure and the number of kine- 
matic degrees of freedom. For each free joint there exist JF 
degrees of freedom (JF = 2, 3, or 6 depending on the structure 
type)„ It is convenient to consider the submatrices of order JF 
in j^T as basic elements, since there is one such diagonal stiffness 
submatrix for every joint in the structure. Also one submatrix 
exists in one half of j^off the diagonal for every member in the 
structure. These off- diagonal submatrices appear in J^ in the 
rows and columns corresponding to the end joints of the member. 
All submatrices of ^corresponding to two joints that are not 
connected by a member are zero. Most structures have a rela- 
tively sparse stiffness matrix; that is, most of the off- diagonal 
submatrices are zero. It is, therefore, efficient to store only 
those elements of 3i that are known to be nonzero. Information 
for status and referencing of the off-diagonal submatrices is 
stored in three second- level arrays, IFDT, IOFC, and IOFDG; 
the submatrices themselves are stored in two second-level ar- 
rays, KDIAG and KOFDG. 

All diagonal submatrices are stored in a second- level array 
KDIAG, ordered by internal joint number; that is, the P" subar- 
ray of KDIAG contains the diagonal submatrix of J^for the I tn 
internal joint. A similar table, KOFDG, contains all the nonzero, 
off- diagonal submatrices for the lower half of J^. This means 
that initially there will be NB(=number of members) subarrays 
in KOFDG. Since this table KOFDG does not directly tell where 
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in the matrix $ any particular sub matrix is located, additional 
bookkeeping tables must be kept. Since it is convenient to keep 
as large a portion as possible of the logical makeup of jf in core, 
an array IFDT (see Section 5.4) is used in which each off-diagonal 
submatrix below the diagonal is represented by one binary bit. 
Thus, one 36 -bit word can contain the information about 36 sub- 
matrices (of 4, 9j or 36 words each) whether or not the subma- 
trix is nonzero. A zero submatrix is represented by a zero bit, 
a nonzero matrix, for which there is an array in KOFDG, by a 
one bit. This array, IFDT, is used during the solution of the 
equations to determine whether a matrix corresponding to a given 
pair of joints is present or not. If such a submatrix is found to 
exist, it still must be located within the table KOFDG. This in- 
formation is stored in the second- level arrays IOFDG. One sub- 
array exists for each hyperrow (a hyperrow consists of JF scalar 
rows corresponding to one joint), that is, for each joint of the 
structure. Each array contains one word per nonzero, off-diag- 
onal submatrix below the diagonal in that hyperrow. This word 
contains in the decrement the hypercolumn number, where the 
submatrix is located, and in the address part the position of the 
submatrix within the KOFDG table. Thus, the off- diagonal sub- 
matrix corresponding to row J and column K (J > K) is addressed 
at several stages as follows: 

1. Find out whether the submatrix exists: M=2. 

CALL ADRESS (J, K, NAD, M) 

ADRESS will look up the bit picture in IFDT. If the bit corre- 
sponding to column K, row J is 1, ADRESS returns the posi- 
tion of the corresponding array in KOFDG in NAD by using 
IOFDG; if not, NAD=0 is returned. The fourth argument is an 
operation code for ADRESS. If the array exists, it can then 
be referenced by 

KF=KOFDG+NAD 

so that 

N=IU(KF) 

U(N+1) is the element (1, 1) of the subarray. 

2. Add a submatrix: M=0. 

ADRESS will place a bit in the bit picture corresponding to 
column K and row J. 

3. Search a column for the next nonzero array: M=l and 4. 
ADRESS will scan the bit picture of the column K from any po- 
sition in KOFDG corresponding to the first nonzero subarray. 
Row J will give the hyperrow number at which the nonzero sub- 
array is found. None exists if NAD = 0. For M = l, the column 
is scanned to J=NFJS; for M=4, to J = NJ. 



74 



Description of System Components 



4. Determine the number of subarrays in a column: M = 3. 
ADRESS will count the number of 1 bits in the hypercolumn K 
and return the result in NAD. 

A simple structure is given in Figure 6. 2, and Figure 6. 1 
shows the makeup of the various arrays before the reductions 
of the equations for the simple structure. 
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Figure 6. 1. Schematic for matrix K for structure of Figure 6. 2. 
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Figure 6. 2. Sample structure. 



The array IFDT consists of only one second-level array 200 
words long. Since the structure is very small, its stiffness 
matrix image has only one nonzero word, which is made up as 
follows (see Section 5.5): 
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There are 5 arrays IOFDG, 1 each for hyperrows 1, 2, 3, 4, 
and 5; IOFDG(l) is of zero length. 
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4 



IOFDG(3) 

IOFDG(4) 

IOFDG(5) 

The submatrix number in KOFDG is the same as the member 
number as a result of the order of operations in forming jjf „ 

6.6o2 Elimination of support joints. If any support- joint re- 
leases are given, the displacements associated with the released 
components are eliminated from the equations in the joint- release 
subroutines (JRELES) according to the method of Section 4„2„ 3, 
so that during the actual solution (subroutine SOLVER) only the 
free joints must be considered,, The elimination of the unknowns 
at the released supports involves the modification of all off- diago- 
nal submatrices that correspond to those members running be- 
tween free joints connected to the same released support joint 




Figure 6. 3. Modification of the structural stiffness due to 
joint releaseSo 

and those diagonal matrices that correspond to the same free 
joints o If no member exists between such joints, the elimination 
procedure will result in a new submatrix corresponding to a fic- 
titious member. For example, the elimination of the release 
joint 4 in Figure 6. 3 would change the diagonal stiffness for joints 
1, 2, and 3, and the off- diagonal stiffness of member 4; a new 
stiffness matrix corresponding to a fictitious member between 1 
and 2, and 1 and 3 would be created. 

If, during the solution, new off- diagonal matrices are created, 
KOFDG and the bookkeeping arrays IFDT and IOFDG must be 
updated and expanded for the new array. The codeword array of 
KOFDG and the data arrays of IOFDG change their length as the 
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elimination proceeds. For efficiency these length changes are 
by blocks. Each time a new element is needed, the defined length 
of the array must be checked against the required length and, if 
necessary, the array must be redefined with a greater length. 

6. 60 3 Solution for the free- joint displacements. The solution 
of the linear algebraic equations for the free- joint displacements 
u" 

aVau" = 0" (6.2) 

is done in subroutine SOLVER,, The matrices 0> } and A^A al- 
ready reflect the effect of joint and member releases, if any. A 
modified Gauss- elimination procedure for symmetrical systems, 
consisting of a forward and a backward sweep, is used. (See 
flow chart for SOLVER in Appendix A, page 200. ) Instead of 
eliminating the scalar rows one row at a time by operating on 
scalar quantities, SOLVER operates on matrices, thus eliminating 
a number of rows at a time At present all operations are done 
on joint submatrices of order JF; that is, elimination during the 
forward sweep is done on sequential joint members (JF scalar 
rows at a time). Thus, if a joint stiffness submatrix is desig- 
nated by aj,4 and the load subvectors by c^, during elimination of 
joint k, proper multiples of the hype r row k are subtracted from 
all hyper rows n > k, according to the following formulas: 

a . -* a . - a n a. . a. . (6.3) 

ni ni nk kk ki 

C n "* °n - a nk a kk _1 C k {6 ' 4) 
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(6.5) 
(6.6) 

This procedure leads to implicit zero off- diagonal submatrices 
in the complete hypercolumn k. The forward sweep consists of 
three nested loops. The outermost loop is on k, the hyperrow 
being eliminated. A call to ADRESS searches in IFDT.to find the 
next existing submatrix in column k, starting at row n + 1 (the 
first time n = k). If such a submatrix is found at a new row n, 
a search is made in column k (k < i < n), which is equivalent to 
a search in row k between k and n„ For each nonzero matrix k, i 
found (via calls to ADRESS), Formula 6. 3 is applied to change the 
corresponding submatrix a n i in row n„ During the process of 
altering row n, IOFDG(n) is used to find the position of a n i in 
KOFDGo Thus during the forward sweep, data arrays of IOFDG 
must be allocated and released in the second of the three nested 
loops. However, during the backward sweep they would have to 
be allocated in the innermost loop, because the operations for the 
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backward sweep proceed row by row from the diagonal to the right 
(or therefore by column from the diagonal down). For large prob- 
lems this would cause a prohibitive number of memory reorgani- 
zations. For this reason the arrays IOFDG are totally released 
successively during the forward sweep, and corresponding arrays 
IOFC are created for the backward sweep (see Section 5 5 for 
IOFC). These arrays contain essentially the information of 
IOFDG in transposed form; that is, they are arranged by column 
below the diagonal, rather than by row. 

During the forward sweep an upper triangular matrix is formed,, 
The backward sweep is therefore only a successive computation 
of unknown subvectors of u ! for one joint at a time, starting with 
the last joint, NFJS, and proceeding upwards. As the displace- 
ments are computed, they are stored in the array KPPRI in place 
of the previously stored joint- load vectors. The operations to be 
performed to compute the displacements of joint n are as follows: 

NFJS 

Ea .u. = c (60 7) 

ni 1 n v ' 

1 = n 

where a n ^ and c^ are the reduced submatrix n, i and load subvec- 
tor n at the end of the forward sweep Since during the backward 
sweep all u| are already known for n < i < NFJS, the rfi 1 subvec- 
tor becomes 

NFJS 

(6.8) 



I NFJS -j 

c - > a .u. I 

n £-j m 1 

1 = n + 1 J 



At the time of the backward sweep, all nonzero submatrices a n i 
are listed sequentially in the bookkeeping array IOFC(n). Thus, 
only one such array must be allocated (and released) per free 
joint during the backward sweep. 



Chapter 7 



EXTENSION OF THE SYSTEM 



Extension and modification of the STRESS processor will gen- 
erally involve three considerations: translation and data input; 
storage of input and generated data; and the position in, and con- 
trol of, the process. Each of these aspects has been treated sep- 
arately in the preceding chapters. The following examples are 
given to illustrate the procedure used in extending the system. 
The reader should note how the existing process is analyzed and 
followed to the point of modification, how the modification is in- 
serted, and how the modification interacts with the memory-usage 
procedure. 



7. 1 Member Geometry Output 

This first example illustrates the ease of insertion of additional 
output requests o It is assumed that we required an additional 
statement of the form 

PRINT GEOMETRY 
or 

TABULATE GEOMETRY 

which is to generate an output table of the form 

MEMBER START END LENGTH PROJEC- TANGENTS 
NUMBER JOINT JOINT TIONS (RISES) 

The required output can be provided directly in Phase la, pro- 
vided that at the time the new statement is encountered, the num- 
ber of joint- coordinates input (JJC +. JDC) equals the number of 
joints specified (NJ), and the number of member- incidences input 
(JMIC) equals the number of members specified (NB), If the above 
two cases do not hold, the request cannot be processed. 

Examination of the listing of subroutine PHAS1A shows that in 
processing both the TABULATE statements (program statement 400 
et seq. ) and the PRINT statements (program statement 1700 et 
seq.) we use LIST2 for further input decoding,, LIST2 contains 
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eight words at the present (DISPLA, DISTOR, REACTI, FORCES, 
DATA, ALL, MEMBER, and JOINT- see listing of LISTS) We 
therefore add a ninth word, GEOMET, and change LIST2 accordingly: 

LIST2 DEC 9 

BCI 9,-.. GEOMET 

With this change, a return from MATCH with K = 9 will occur 
whenever the word GEOMETRY is encountered. 

In order to accommodate the new alternative, the following two 
changes must be made: 

a. Replace statement 402 by 

402 IF(K-5)420, 1720, 4021 
4021 IF(K- 9)430, 1712, 1712 

b; Replace statement 1701 by 

1701 IF(K- 5)1702, 1720, 1711 

1711 IF(K- 9)1700, 1712, 1712 

The processing of the request can then be continued with a state- 
ment 1712. The processing starts by checking for the scan mode 
and for whether the request can be satisfied. If it can be, a CALL 
is made to a new subroutine GEO PR and the output is advanced 
to a new page through a CALL to subroutine PRERR. If the tests 
fail, an identifying message is printed. In either case, control 
returns to Statement 10 to read a new input statement. The proc- 
ess therefore can be specified as follows: 

1712 GO TO (1713, 10) ISCAN 

1713 IF (JMIC-NB) 1716, 1714, 1716 

1714 IF(JJC+JDC-NJ) 1716,1715,1716 

1715 CALL GEOPR 
CALL PRERR(l) 
GO TO 10 

1716 PRINT 1717 

1717 FORMAT (44 DATA INCOMPLETE. REQUEST CANNOT 
1BE PROCESSED) 

GO TO 10 

The new subroutine GEOPR can now be completed. The sub- 
routine will have to deal with four arrays: the coordinate table 
KXYZ, the incidence tables JPLS and JMIN, and the member- type 
table MTYP. The latter is needed to check for members that 
may have been deleted (MTYP=0). Since the subroutine is called 
from PHAS1A, all arrays needed except MTYP are already allo- 
cated. In a subroutine called during the execution phase, it may 
not be assumed that this condition holds, and any arrays needed 
must be allocated at the beginning of the subroutine and released 
just prior to returning to the calling subroutine. 



80 Extension of the System 

In order to avoid overflow when a member is nearly perpendic- 
ular to one of the coordinate axes, the convention will be made 
that if cot 9^ < 1', the output for tan 8i will be the constant 
9999. 9999 with the sign of tan 9^ 

The following listing of the program should be studied carefully, 
especially with regard to the use and significance of the subscript 
notation,, 

SUBROUTINE GEOPR 

DIMENSION D(3),T(3) 

DIMENSION U(2), . ., 

COMMON U, IU, . o . , NB, NCORD, „ . . , KXYZ, JPLS, 

JMIN,MTYP, . . . 

The latter two statements should be duplicated from PHAS1A 

CALL ALOCAT (MTYP) 

10 IF(NCORD-2) 11, 11, 12 

11 PRINT 13 
GO TO 20 

12 PRINT 14 

13 FORMAT (title for planar structures) 

14 FORMAT (title for space structures) 
20 DO 100 M=1,MEXTN 

NTYP=MTYP+M 

NPLS=JPLS+M 

NMIN=JMIN+M 

The addresses of the M entry in the corresponding arrays are 
NTYP, NPLS, and NMIN. A check for nonexisting members can 
now be made. 

IF(IU(NTYP))30, 100, 30 
30 IPLS=IU(NPLS) 
IMIN=IU(NMIN) 

The joint numbers of the two joints incident of member M are 
IPLS and IMIN. 

KPLS=KXYZ+(IPLS-1)*3 
KMIN=KXYZ+(IMIN-1)*3 

The starting (base) addresses in the coordinate table of the co- 
ordinates of the two joints are KPLS and KMIN plus one. 

SPAN=0o0 
40 DO 50 1=1, NCORD 

KPI=KPLS+I 

KMI=KMIN+I 

D(I)=U(KMI)-U(KPI) 
50 SPAN=SPAN+D(I)*D(I) 

The addresses of the Ith coordinates of the two joints are KPI and 
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KMI; D(I) is therefore the projection of the member length on the 
I*h axiSo 

SPAN = SQRTF(SPAN) 
TEST = 0o 0002909*SPAN 

60 DO 70 I=l,NCORD 
IF(ABSF(D(I))- TEST)61 , 62, 62 

61 T(I)=SIGNF(9999. 9999, D(I)) 
GO TO 70 

62 T(I)=D(I)/SPAN 
70 CONTINUE 

80 PRINT 81,M,IPLS, IMIN, SPAN, (D(I), 1=1, NCORD), 
l(T(I),I=l,NCORD) 

81 FORMAT (311, 7F15. 4) 
100 CONTINUE 

CALL RELEASE(MTYP) 

RETURN 

END 

This completes the modification of the system,, 



7.2 Joint Coordinate Computation 

In many applications, it is convenient to define some joint co- 
ordinates as a function of previously defined coordinates. As an 
example, the programming additions will be described to include 
a joint defined by the intersection of two lines defined by two pairs 
of joints o The input specifications for this addition might be the 
new statement 

JOINT J (ON) INTERSECTION Jl J2 J3 J4 

where the word ON may be included or omitted. The two lines 
are defined by Jl to J2 and J 3 to J4. Any additional descriptive 
words may be added before the four additional joint number s„ 
The tabular form would have the header JOINT INTERSECTIONS, 
The defining joints must all have been previously given. The 
joint J is assumed to be free unless the word S or SUPPORT fol- 
lows the last joint number. Two possible errors would have to 
be detected: either one of the joints has not been given, or the 
two lines do not intersect. 

The word JOINT is translated by PHAS1A, which then trans- 
fers to JTDAT for further translation. All of the following 
changes apply to subroutine JTDAT only and should be studied 
in conjunction with the listing of that subroutine. JTDAT starts 
by reading an integer or a word given in LIST3. The words ON 
and INTERSECTION need to be added to LIST3, with the action 
on detecting ON being, to read the next word and the action on 
detecting INTERSECTION, to transfer to statement 2180. 
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In LISTS the statements for LIST3 become 



LIST3 DEC 


8 


BCI 


6,0.. 


BCI 


1,OOOOON 


BCI 


1, INTERS 



The statement 202 is used to skip superfluous words, and should 
be changed to read 

202 GO TO (203, 203, 203, 203, 203, 200, 200, 203), 12 

Statement 209 transfers on the branch number for reading the 
rest of the statement. This is changed to read 

209 GO TO (2 10, 220, 2 30, 2 30, 250, 96, 96, 21 80), K2 

When statement 209 is reached, J has been read and stored. With 
a tabular header, K2 has been set when the header is translated, 
and J read in PHAS1A. Otherwise, J is read in JTDAT. 

Two existing arrays will be needed in this program addition, 
JTYP and KXYZ. The reader should refer to Section 5, 3 for 
their meaning and storage form. The element in JTYP corre- 
sponding to a joint number must be nonzero if the joint has been 
defined. Four integers must follow in the translation process. 
The reading of these numbers and checking for nonexisting joints 
is accomplished by 

2180 DO 2182 IJ = 1,4 
I3=MATCH(0,K,2) 
IF(I3-2)94,2181,94 

2181 L=JTYP+K 
IF(IU(L))2182,47,2182 

2182 LABL(IJ)=K 

The joint numbers are stored in LABL for processing,, 

Numbering the points in the order of input and defining the 
direction cosines of line 1-2 as lj, m^, and n lf and of line 3-4 
as 1 2 , m 2 , and n 2 , the condition that an intersection exists 1 is 

(m 1 n 2 - m 2 nj )(x 3 - Xj) + (n^ 2 - n z ft l )(y 3 - y{) 

+ Uim 2 - £ 2 m 1 )(z 3 - Zl ) = 

The distance from point 1 to the intersection is given by 

'(x 3 -x 1 ) 2 +(y 3 - y!) 2 +(z 3 - Zl ) 2 - {^(xs-x^+m^ys- yi ) + n 2 (z 3 - zty 1 

(m in2 - rr^nj) 2 *^;,- n 2 t 1 ) 2 + (4iixi 2 - J^rr^) 2 



l D F„ Gregory, A Treatise on the Application of Analysis to 
Solid Geometry , Whittaker, Simpkin, and Bell, London, 1852. 



Joint Coordinate Computation 83 

If the denominator equals zero, the lines are parallel. The direc- 
tion cosines can be computed by 

DIMENSION DRCS(3, 2) 

DO 2185 1=1,2 

DIST=0. 

DO 2183 11=1, 3 

IK=KXYZ+(LABL(2*I)- 1)*3+II 

IL=KXYZ+(LABL(2*I- 1)- 1)*3+II 

DRCS(II, I)=U(IK)-U(IL) 

2183 DIST=DIST+DRCS(II,I)**2 
DIST=SQRTF(DIST) 

DO 2184 11=1,3 

2184 DRCS(II, I)=DRCS(II, I)/DIST 

2185 CONTINUE 

Coordinate differences used in the formula are computed by 

DIMENSION DIFF(3) 
DO 2186 1=1, 3 
IK=KXYZ+(LABL(3)-1)*3+I 
IL=KXYZ+(LABL(1)-1)*3+I 

2186 DIFF(I)=U(IK)-U(IL) 

The intersection test and the parallel test can be calculated together: 

SUM=0. 
DIN=0. 
DIST = 0. 
DO 2187 1=1, 3 
IK=XMINF(I,6-2*I) + 1 
IL=( 3*1*1- 13*I+l6)/2 
TEMP=DRCS(IK, 1)*DRCS(IL, 2) 
1-DRCS(IK, 2)*DRCS(IL, 1) 
SUM=SUM+DIFF(I)*DIFF(I) 
DIN=DIN+ TEMP* TEMP 

2187 DIST=DIFF(I) + TEMP 

I IF(ABSF(DIST)-1.E-5)2188,2188,46 

j 2188 IF(ABSF(DIN)-1.E-5)46,46,2189 

2189 R=SQRTF((SUM-(DRCS(1,2)*DIFF(1)+DRCS(2,2) 
| 1*DIFF(2)+DRCS(3, 2)*DIFF(3))** 2)/DIN) 

I Computing and storing the coordinates is done by 

j IK=KXYZ+(LABL(1)- 1)*3 

s IL=KXYZ+(J- 1)*3 

j DO 2190 1=1, 3 

\ II=IK+I 

IJ=IL+I 
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2196 U(IJ)=U(II)+R*DRCS(I, 1) 
GO TO 210 

The existing joint- coordinate translation portion can be used to 
read the joint type and increment the counters since no decimal 
data follow the last joint number, and no data are to be stored. 
The last transfer then is to statement 210„ 

Additional statements for error messages are needed. An er- 
ror message specifying that an expected integer is not found is 
included in PRERR with flagging of CHECK and printing of the 
message already programmed in PHAS1A. 

The error- return code from JTDAT need only be extended in 
PHAS1A to include this error with NE=11 Additions to JTDAT 
at the end might be 

94 NE=11 

GO TO 10 
47 PRINT 9 
B CHECK=CHECK*77777777 3777 

GO TO 10 
9 FORMAT (53H THE USE OF DATA FOR AN 
1 UNDEFINED JOINT IS ATTEMPTED) 
46 PRINT 8 
B CHECK=CHECK*777777767777 

GO TO 10 
8 FORMAT (42H LINES CONNECTING JOINTS DO 
1NOT INTERSECT) 

The masking of CHECK shown is for unacceptable statements and 
for incorrect structural data. The GO TO statement in PHAS1A 
following statement 200 should read 

GO TO (10, 48, 90, 91, 92, 93, 98, 99, 96, 97, 94), NE 



7. 3 Member Loads in Global Coordinates 

7, 3. 1 Input requirements for the new statement. This exam- 
ple illustrates the programming steps required to implement in 
the STRESS processor programs a new command that specifies 
member loads in the global-, rather than a member- , coordinate 
system. 

Such a command is convenient in cases where member loads are 
acting in a coordinate system that is not parallel to the member- 
coordinate system of that member, such as vertical loads on an 
inclined roof beam shown in Figure 7.1. 

To implement this capability it is only necessary to generalize 
the already available statement for member loads. The present 
statement is of the form 
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where it is assumed that the direction label X, Y, or Z refer* 
to the member- coordinate system of member M, 




X 



Figure 7 1. Member load in global correspondence. 

To implement the desired altered statement we make the fol- 
lowing convention: if (and only if) the direction label refers to 
the global coordinate system, an additional word "GLOBAL 11 is 
given after the direction label. Thus the altered command be- 
comes 
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\ u uniform 

(linear 
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FORCE X x 
Y 
Z 

MOMENT X 
Y 
Z 

For the example shown in the figure, the command to specify the 
vertical load would then be 



3 FORCE Y GLOBAL UNIFORM -1.0 60. 150. 
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It is noted that the distances (L^ = 60.) and (Lg = 150.) still re- 
fer to the distance along the member axis This feature, how- 
ever, is convenient for uniform loads extending over the entire 
member (L<a = I^B = 0°)- 

7. 3. 2 Implementation. The following procedure of implemen- 
tation will be used: 

1. In input phase a flag is set if a member load refers to global 
coordinates. All other raw data are stored as if the load had 
been in member coordinates. 

2. When processing the member loads in subroutine LOAD PC 
and LOAD PS, the flag bit stored is checked. If it is present, 
the given loads are rotated into the corresponding compo- 
nents in member coordinates, and the normal load processor 
routines are called for each nonzero component. 

The components are obtained by matrix multiplication with 
the rotation matrix R between global and member coordi- 
nates. 

3. In the PRINT DATA mode (subroutine DPRINT) the fact that 
a load is in global coordinates is printed. This is done by- 
checking the corresponding flag, 

7. 3. 3 Programming changes required. In this section frequent 
reference will be made to specific parts of source programs of 
the STRESS processor. The listings and flow charts for these 
programs are included in the appendices of this manual. 

a. Input phase. During the member-load reading, a special 
branch must be allowed after reading the direction label to 
check whether the next word is GLOBAL. This is done by al- 
tering subroutine READ as follows: a 38^ branch is added to 
statement 105 going to a new statement 2000 (word 38 in LIST5 
is now " GLOBAL"). 

105 GO TO(106, . oo,2000), K 
2000 NGLOB=l 
GO TO 100 

The packing statement before statement 150 is used to store 
the flag NGLOB into an unused portion of the load descriptor 
word 

CALL PACKW(IU(IJ), NGLOB, N,LABL(1),LABL(2), 0) 
NGLOB=0 

This stores the flag into the prefix of the second headerword 
of the load block for the raw data belonging to this member 
load. (See Section 5. 4. 5.) 

In addition subroutine LIST5 must be changed to read as fol- 
lows: 
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DEC 


38 


BCI 


9,00... 


BCI 


/ i o • o 


BCI 


8, . . o 


BCI 


8, . . . 


BCI 


3,...00IZDISTOR 


BCI 


1, GLOBAL 



END 

b. Execution phase. The only changes required are in the 
member-load processor subroutines; 

Additional statements are required in subroutine LOADPS 
to unpack and check the flag NGLOB set in READ If the mem- 
ber load is in global coordinates (NGLOB = l), a special newly- 
written subroutine GLOMLD is called to rotate the given loads 
into member coordinates and call MEMBLD for each component. 

The required changes in subroutine LOADPS are (a) state- 
ment after statement 4, change to 

CALL UPACW(U(NLS), NGLOB, N, J, K, B) 

and (b) before statement 206, replace ,f GO TO 30 M by 

IF(NGLOB)Z000, 30, 2000 
2000 CALL GLOMLD 
GO TO 149 

Subroutine GLOMLD must be newly written and monitors the proc- 
essing of the member load under consideration on member JM 

7.3.4 Subroutine GLOMLD. The following special cases are 
to be considered. 

Trusses: Since member forces on trusses must be in the 
member x direction, such forces can only be 
given in global coordinates if the member is 
parallel to one of the global axes. If such a 
load is specified so that force components nor- 
mal to the member axis result, only the com- 
ponent in the member- axis direction will be 
considered. Moment components will be neg- 
lected. 
Plane frame: Moment components of prescribed member 

loads can only act around the Z (or z) axis. 
Plane grid: Force components of prescribed member loads 
can only act along the Z (or z) axis. 

The flow chart for subroutine GLOBLD is shown in Figure 7.2. 
The following conventions are used in the subroutine: 

J = load direction in member coordinates 

( J=l, 2, 3 means force x, y, z, respectively) 
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(J=4,5,6 means moment x,y,z, respectively) 
F = applied force in global coordinates 

A listing of the subroutine follows. 

C FORTRAN PROGRAM FOR GLOMLD 

SUBROUTINE GLOMLD 
C COMMON STATEMENT MUST AGREE WITH 

MEMBLD 

COMMON U,IU, Y, T. . » 

DIMENSION. 

EQUIVALENCE,, . . 
v 1 CALL TRAMAT ( JM, 2) 
C SAVE RAW DATA (INTENSITIES) IN TEMP 

TEMP1=U(NLS+1) 

TEMP2 = U(NLS+2) 

JTE=J 

JKS=1 

J=l 

GO TO (10,20,30, 10, 40)ID 
C TRUSSES 

10 ICN=1 

GO TO 900 
C PLANE FRAME 

20 IF(J-6)21,22,22 

C IF J=6 MZ IS GIVEN, GLOBAL=LOCAL 

22 ICN=1 

GO TO 900 

21 ICN=2 

GO TO 900 
C PLANE GRID 

30 IF(J-3)31, 32,31 
32 ICN=1 

GO TO 900 

31 ICN=2 
J=4 
JTE=J~3 

C SHIFT COMPONENTS BY 3 SINCE MOMENT 

C IS GIVEN 

GOTO 900 
C SPACE FRAME 

40 ICN=3 

IF(J-3)900, 900,42 
42 J=4 
900 DO 950 1=1, ICN 

U(NLS+1) = TEMP1*T(JKS,JTE) 
IF(K-2)54,54,53 
53 U(NLS+2) = TEMP2*T(JKS, JTE) 
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C K=3 MEANS LINEAR LOAD, 2 INTENSITIES 

C GIVEN 

C NLS IS A POINTER TO RAW DATA UNDER 

C CONSIDERATION 

54 CALL MEMBLD(U(JC+1)) 

NDEX=2 

CALL LSTOR 

J=J+1 
950 JKS=JKS+1 
C RESTORE RAW DATA IN MLOAD 

U(NLS+1) = TEMP1 

U(NLS+2) = TEMP2 

RETURN 

END 



Compute force 

component in 

the x direction. 

J = 1 

ICN = 1 



(Enter) 



c 



Call TRAMAT ( JM, Z) 
to get rotation matrix Q into array 



^ 



D 



Branch on 
structure type 



Force 




Moment 



ICN =3 



J = 4 
ICN = 2 




Force 



|lCN= l| 



^oop \I > 



ICN 



Q 



I < ICN 



Call MEMBLD 



ZJ 



5 



Restore 
row data 



( Return J 

Figure 7.2„ Flow chart for new subroutine GLOMLD, 

We shall not discuss here the changes in subroutine DPRINT 
that are necessary to differentiate between global and member 
coordinates for the member loads on the output,, They would 
merely consist of one check of the corresponding bit NGLOB, 
and a corresponding message or label on the outputo 
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Main Link 1 



SUBROUTINE: PHAS1A 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF ARGUMENTS: Subroutine PHASlA controls the input 
phase of STRESS. It reads in all STRESS statements, decodes the alpha- 
betic data and sets appropriate parameters, and stores the numeric data. 

CALLS: PRERR, MATCH, MEMDAT, JTDAT, SIZED, DEFINE, 
ALOCAT, START, UPADP, RELEAS, PHAS1B, SELOUT, DPRINT 

CALLED BY: MAIN LINK1 
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(Call EXIT J 
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SUBROUTINE: LISTS 

TYPE: FAP 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine LISTS consists of ten lists of 
words (each list available under its own entry point) that are used as a 
dictionary by subroutine MATCH. MATCH compares an inputted word 
with a specified list (entry points: LIST1, LIST 2, etc). The first six 
letters only are used. 

CALLED BY: All translating routines 



ENTRY POINT 



WORDS 



LIST! 



LIST 2 

LIST 3 
LIST4 
LIST 5 



LIST 6 

LIST 7 
LIST 8 
LIST 10 
LIST 1 1 



MEMBER, JOINT, NUMBER, TABULA, LOADIN, STRUCT, 
METHOD, TYPE, MODIFI , CHANGE, ADDITI, DELETI, 
SOLVE, STOP, FINISH, SELECT, PRINT, CONST A, 
COMBIN, COORDI, CHECK 

DISPLA, DISTOR, REACTI, FORCE, DATA, ALL, 
MEMBER, JOINT 

COORDI, RELEAS, LOADS, LOAD, DISPLA, NUMBER 

JOINT, MEMBER, SUPPOR, LOADIN 

X, Y, Z, FORCE, MOMENT, DISPLA, ROTATI, A, I, END, 
START, CONCEN, UNIFOR, LINEAR, P, W, WA, WB, 
LA, LB, S, F, SUPPOR, FREE, AREA, INERTI, L, LENGTH, 
STEEL, BETA, AX, AY, AZ, IX, IY, IZ, DISTOR 

FROM, GOES, NUMBER, INCIDE, PROPER, RELEAS, 
CONSTR, DISTOR, LOAD, LOADS, PRISMA, STIFFN, 
FLEXIB, VARIAB, STEEL, END 

PRISMA, STIFFN, ^LEXIB, STEEL, VARIAB 

ALL, BUT, E, G, CTE, DENSIT 

FIRST, LAST, PART 

PLANE, SPACE, TRUSS, FRAME, GRID 
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SUBROUTINE: MEMDAT 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine MEMDAT controls the read- 
ing and storage of input data that deal with members. 

CALLS: MATCH, READ, ICNT, DEFINE 

CALLED BY: PHAS1A 
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Zero-header 

storage 



From, GOES, 
Number 



( Return J 



Incidences, Releases, 
Constraints, Load Prismatic, Variable 
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data 
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SUBROUTINE: SIZED 

TYPE: FORTRAN 

ARGUMENTS: J, K, L 

DESCRIPTION OF ARGUMENTS: 

Argument L gives the type of input statement being processed: 

L = 1: Indicates that there is a NUMBER statement during the initial 

data input or during the CHANGES mode of MODIFICATION; 
L = 2: Indicates that during MODIFICATION a joint member or load- 
ing is greater than JEXTN, MEXTN, or LEXTN. 



J 


L 


Calling SIZED from statement 


K 


1 


1 


NUMBER OF JOINTS 


Number of joints 




2 


JOINT COORDINATES 


Number of a joint 


2 


1 


NUMBER OF MEMBERS 


Number of members 




2 


MEMBER INCIDENCES 


Number of a member 




2 


MEMBER PROPERTIES 


Number of a member 


3 


1 


NUMBER OF SUPPORTS 


Number of supports 


4 


1 


NUMBER OF LOADINGS 


Number of loadings 




2 


LOADING HEADER 


Highest loading number 



DESCRIPTION OF PROGRAM: Subroutine SIZED defines and allocates, 
or redefines during MODIFICATION, the various arrays (whose sizes are 
functions of size statements) used to store input data; it also sets the cor- 
responding size parameters. 

CALLS: DEFINE, ALOCAT 

CALLED BY: PHAS1A, MEMDAT, JTDA.T 




Set parameters 



Define and allo- 
cate arrays 

I 



( Return) 
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SUBROUTINE : JTDAT 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine JTDAT controls the reading 
and storage of input data that deal with joints . 

CALLS: MATCH, READ, ICNT, DEFINE, SIZED 

CALLED BY: PHAS1A 



© 
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Loads 
Displacements 
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(call 
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of number of free 
or support joints 

Set JTYP 

Store coordinates 



hJ 



Modify counters 

Change JTYP 

Change coordinates 
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MODIFICATIONS 

On DELETIONS, 
delete any releases 
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of the number of re- 
leased joints and the 
number of releases 

Set up KJREL for 
joint J 
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KJREL 

Store joint Thetas in 
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The counters 
The release 
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( Return ) 
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SUBROUTINE: READ 

TYPE: FORTRAN 

ARGUMENTS: IG, J 

DESCRIPTION OF ARGUMENTS: Argument IG indicates the type of data 
to be read. 



IG 



1 



Joint coordinates 
Member properties 



Releases 



Loads 



Argument J conveys the joint or member number for the data to be read. 
If J is not given, the data is in a tabular header. 

DESCRIPTION OF PROGRAM: Subroutine READ reads data, given with 
or without labels, of the type indicated by IG and stores them in two col- 
umns: one column contains the numerical data and the other contains a 
code that indicates the label associated with each piece of data. Subrou- 
tine READ compacts the release code for releases For loads it places 
the data in appropriate parts of the arrays MLOAD and JLOAD and refer- 
ences these data in the array LOADS. Subroutine READ also alters this 
loading information for any type of MODIFICATION. 

CALLS: MATCH, UPADP, DEFINE, PADP, ALOCAT, RELEAS 



CALLED BY: MEMDAT, JTDAT 
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FUNCTION: MATCH 

TYPE: FAP Function 

ARGUMENTS: I, LIST, K, M 

DESCRIPTION OF ARGUMENTS: 

I: Function result indicating kind of logical field encountered or nature 
of contents of K 



I 


Field 


1 


Field is six blanks 


2 


K contains a fixed -point number 


3 


K contains a floating-point number 


4 


K contains word not found in the indicated LIST 


5 


K contains the position of the word in the indicated LIST 


6 


Field contains "DO" or "DITTO" 



M: Specifies operation to perform 
M Operation 




1 
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4 
5 
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Read the first logical field of a new card 

Read only a number (skip letters) 

Skip a logical field and read the next one 

The location of the buffer is placed in LIST 



LIST: Unless M = 5, LIST indicates the dictionary name 
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SUBROUTINE: DPRINT 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine DPRINT prints out in tabular 
form the structural and loading data associated with the state of the prob- 
lem at the time DPRINT is called„ 

CALLS: ALOCAT, UPACW, RELEAS 

CALLED BY: PHAS1A 
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Print 
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(Return j 
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SUBROUTINE: SELOUT 
TYPE: FORTRAN 
ARGUMENTS: JLX, IZ, NUM 

DESCRIPTION OF ARGUMENTS: 

Symbol JLX is the external loading number 

Symbol IZ indicates the kind of results that will be printed out from 
this loading condition. 



IZ 



1 
2 
3 
4 



Information Wanted 



Member forces 

Joint loads and support reactions 

Member distortions 

Joint displacements 



Symbol NUM is the number of a joint or member about which this in- 
formation is desiredo 

DESCRIPTION OF PROGRAM: Subroutine SELOUT reallocates the re- 
sult arrays necessary for ANSOUT to print out the information for the 
joint or member. 

CALLS: ALOCAT, UPACW, RELEAS, ANSOUT 

CALLED BY: PHAS1A 



Print structure name 
and modification name 
if it exists 



f Enter J 



Allocate LEXT, LOADS 
LOADS(JLX); unpack 
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Release LOADS(JLX) 



Find internal number 
corresponding to JLX 
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© © © 



Allocate MTYP, 
JPLS, JMIN, 
KPPLS, KMNS 



Find 

KPPLS(JLI) 
and 
KMNS(JLI) 



Allocate JINT, 
KR 



Allocate MTYP, 
KUV 



Find KP(JLI) 



Find KUV(JLI) 
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Transfer on print code 
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Release all 
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f Return J 
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2: free 
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and save 
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SUBROUTINE: ANSOUT 

TYPE: FORTRAN 

ARGUMENTS: IZ, NUM, IHOP 

DESCRIPTION OF ARGUMENTS: 
IZ: Printing code 

IZ = 1: Print member forces 

IZ = 2: Print joint loads and support reactions 
IZ = 3: Print member distortions 
IZ = 4: Print joint displacements 
NUM: Selective printing code 
NUM<0: Print all quantities 
NUM > 0: Print only selective output 
IHOP: Heading code c 

1 : Print heading 
2: Do not print heading 
3-^6: Not set, not used 

Is Print heading, print support-joint label 
Print heading, print free -joint label 
Do not print heading or label; print 
support -joint output 
Do not print heading or label; print 
free -joint output 

Do not print heading, print support-joint 
label 
Do not print heading, print free-joint label 



Member 
Results 




Joint 
Results 



2s 
IHOP = 3: 



IHOP 



IHOP 



IHOP = 6s 



DESCRIPTION OF PROGRAMS Subroutine ANSOUT prints solution quan- 
tities for one type and loading condition., Array addresses are computed 
in calling program. 

■CALLED BY-: SELOUT, BAKSUB 
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Print support-reaction 
headings according to 
structure type being 
analyzed 



= 5 
= 6 



Print JOINT 
DISPLACE- 
MENTS head- 




Print joint-displace- 
ment table headings 
according to structure 
type being analyzed 



Test if joint- 
status head- 
ing should be 
printed 



Print one 
joint out- 
put 




T" 



Print total 
output 



Selective 
output 



Test if joint- 
status head- 
ing should be 
printed 



Print one 
joint out- 
put 



(Return) 
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SUBROUTINE: PHAS1B 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: This subroutine checks the consistency 
of input data. It defines, allocates, and releases various arrays that will 
be used in Phase II and forms the joint incidence matrices and internal- 
external joint and loading tables. 



CALLS: 
SAVE 



DEFINE, ALOCAT, UPADP, PRER2, RELEAS, ITEST, PRERR, 



CALLED BY: PHAS1A 



f Enter J 



Initialization 




<2> 



Set check 

parameter 



Define, clear, 
and allocate 
JINT and JEXT 



I 



First joint 



Subroutine PHAS1B 
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•©- 



Repeat for all \ j > JEXTN 

joint members ) ^M B ] 

J= 1, JEXTN 



No 



Erase 
J LOAD 
array- 



No 



Deleted 




Zero type 



Erase load 
reference 



JEXTN 



Support 



Free 



Store correspondence 
in JINT and JEXT 





No 



C Print error 'N 
message J 



SEP 



© 
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© ^ I>MEXTN/ L00p0na11 ^ 
'^ '■ ' m \ member numbers 



(Print error "\ 
message J 




Subroutine PHASIB 
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| scp | 



I scp I 



Define and 
allocate LINT 



L ^ LEXTN 



Set internal 
number to 
zero 




Set internal 
number counting 
down from 
NLDS 



Independent 



Set internal 
number count- 
ing up 



| SCP | 



Set parameters 
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x 



Y 


es 


/^Test CHECK " 
Vprinting errors 

.X'Did^s. 

S^ solution 


I 




>v succeed >»* 


ISUCC = 1 
ISOLV = 2 







J2a_ 



Yes 



(Save the \ 
initial data/ 




(Print error^ 
message J 



Release most 
input arrays 



ISUCC = 2 



Define first- and se- 
cond-level execution 
arrays allocating and 
releasing codeword 
arrays 



Loop for 

all members 
V I = 1, MEXTN 



I p> MEXTN, 



I < MEXTN 




Store incidence 
by internal 
joints 



Define second- 
level arrays of 
IOFDG based on 
incidences 



Increment inci- 
dence counters 
(temporary 
IOFDG) for maxi- 
mum incidence 



C 



Return 



") 



Subroutine RESTOR 
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SUBROUTINE: RESTOR 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine RESTOR returns to core the 
input data of the initial specification of the problem for a MODIFICATION 
OF FIRST PART and rewinds the scratch tapes. 

CALL: FILES 

CALLED BY: PHAS1A 



C Enter ^ 

"Call FILES > 
to read initial 
problem data^ 



i 



Rewind scratch 
tapes and initialize 
file number 

( Return j 
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SUBROUTINE: SAVE 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine SAVE stores on tape all of the 
input data of the problem when called. 

CALLS: UPADP, FILES 

CALLED BY: PHAS1B 



MEnter) 



Obtain NL 
from storage 



KSAVE = 7 746 2 o - NL 



"Call FILESX 
to store data] 
on tape J 



NL is the next available 
storage location in 
COMMON 

KSAVE is the number 
of words used for prob- 
lem data storage 



(Return j 



Subroutine ITEST 
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SUBROUTINE: ITEST 
TYPE: FAP 
ARGUMENTS: A, B, L, I 
DESCRIPTION OF ARGUMENTS: 



A 
B 
L 
I: 



logical word to be tested 

Mask used in testing 

If 0, no diagnostic printing 

Set by ITEST 

I = if A matches B 

I = 1 if A # B 



DESCRIPTION OF PROGRAM: Argument A is logically matched against 
B. If all bits of A match B, I is set to 0. If any bits do not match, PRERR 
is used to print (L + K)** 1 error message, where K = bit position of A in 
error (K is counted from the right of A). 

CALLS: PRERR 

CALLED BY: PHAS1B 
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FUNCTION: ICNT 

TYPE: FAP 

ARGUMENT: I 

DESCRIPTION OF ARGUMENTS: The word I contains the release codes. 

DESCRIPTION OF PROGRAM: Function ICNT counts the number of joint 
or member releases on a single support joint or member, 

CALLED BY: PHAS1B 



(Enter) 



Count the bits 
in the decrement 



Result in 
accumulator 



f Return j 



Subroutine CLEAR (NAM) 133 

SUBROUTINE: CLEAR(NAM) 

TYPE: FAP 

ARGUMENT: NAM 

DESCRIPTION OF ARGUMENT: A codeword 

DESCRIPTION OF PROGRAM: Subroutine CLEAR is called if an array 
must be set to zero before the next use 

CALLED BY: Many programs 




Zero array 
elements 



No 



No 



Set array tape 
file number to 
zero; ALOCAT 
will clear array 
when used 



I 



f Return} 
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SUBROUTINE: PRERR 

TYPE: FORTRAN 

ARGUMENTS: J 

DESCRIPTION OF ARGUMENTS: Argument J determines which one of 
the 36 error messages contained in PRERR is to be printed out. 

DESCRIPTION OF PROGRAM: Subroutine PRERR prints one message 
with no numerical information. 

CALLED BY: PHAS1A, ITEST 




Branch on J 



(Return j 



Subroutine PRER2 
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SUBROUTINE: PRER2 
TYPE: FORTRAN 

ARGUMENTS: J,N,A 

DESCRIPTION OF ARGUMENTS: 

J: Indicates which one of the 18 error messages is to be printed 
N and A: Parameters printed in the message 

CALLED BY: PHAS1A, READ, PHAS1B, etc 



(Enter) 



z 



A) Branch on J 



£ 



r^ • .th 

Print out 1 

error mes- 
sage using N 
and/or A 



(Return) 
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Allocator: Pertaining to Subroutines START, DEFINE, 
ALOCAT, RELEAS, REORG, FILES, DUMP, DUMPER, 

SSLAD, STER. 

The dynamic memory allocation used in this process is accomplished 
with a small series of subroutines The majority of these routines are 
coded in FAP and are grouped into a single subroutine with multiple en- 
tries, which are ALOCAT, DEFINE, RELEAS, REORG, START, and 
DUMP. Routine REORG is called from other parts of the allocator (that 
is, in the FAP subroutine) or from the modified library routine CHAIN 
if the next program link would overlay data. Other portions of this FAP 
routine are called by more than one of the entries and therefore are shown 
in separate flow charts. They are SSLAD and STER. 

Two FORTRAN routines are also part of the allocator: FILES for tape 
handling and DUMP for printing intermediate dumps, 

The allocator routines may be called from any program. 

SUBROUTINE: START 

TYPE: FAP 

ARGUMENTS: NT, NCW, NMAX 

DESCRIPTION OF ARGUMENTS: 
NT: Not used 

NCW: Size of the fixed arrays and codewords 
NMAX: Size of the space available for arrays in Link 1 

DESCRIPTION OF PROGRAM: Subroutine START initializes storage of 
arrayso 

CALL: FILES 

CALLED BY: PHAS1A 



Subroutine allocator 
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<=> 



Initialization 



Clear space 
for fixed arrays 
and codewords 



Store scratch 
tape number 



Compute and store the 
location of the start of 
the space available for 
arrays 



Store the address of the 
first free location avail- 
able for arrays in the 
location called NL 



Store in the calling se- 
quence NMAX the length 
of space available 



I 



Initialize 
tape 



Store the address of the 
end of space available for 
arrays in NT 



(Return j 
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SUBROUTINE: DEFINE 

TYPE: FAP 

ARGUMENTS: NAME, J, N, R, U, V 

DESCRIPTION OF ARGUMENTS: 

NAME: Indicates codeword to be considered 

J: Present only if the array is second level and indicates the secondary 
codewords to be considered 



N 
R 
U 
■V 



Size of the array associated with the codeword 

Indicates whether the array is codeword or data 

Indicates whether or not the array is of ordinary preference 

Indicates whether in a memory reorganization the array must be 

erased or saved 



DESCRIPTION OF PROGRAM: Subroutine DEFINE sets up codewords for 
arrays. If the array exists, is in core, and if the size is altered, DEFINE 
moves the array to the bottom of the data. If a second-level array is be- 
ing redefined as a first-level array, DEFINE destroys the data-array back- 

references, 

CALLS: SSLAD, STER, REORG 




Erase the backreferences in 
the data arrays if necessary 



Indicate a redefinition 
has occurred with the 
array on tape 



Replace codeword with 
TEMP 



Restore calling 
sequence if 
necessary 



EJ 




Restore and alter 
calling sequences 
if necessary 



Restore and alter 
calling sequences 



if necessary 




Place zeroes 
in additional 
space 



Place zeroes 
in additional 
spac e 




Destroy backrefer- 
ences of extra data 
arrays 



Destroy back- 
references of 
extra data arrays 



Move the array; create 
the new array world 



Place codeword decrement 
in TEMP; replace the code- 
word with TEMP 




Update backreferences 
in the data arrays 



Alter old array word to 
show size of unused block 



Place in decrement of 
codeword the distance 
from top of common 
to the array 



Redefine the 
next available 
space in pool 
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SUBROUTINE : ALOCAT 

TYPE: FAP 

ARGUMENT S : NAME , J 

DESCRIPTION OF ARGUMENTS: 
NAME: Refers to a codeword 

J: Present only if the array is second level and indicates which of the 
secondary arrays is to be considered 

DESCRIPTION OF PROGRAM: Subroutine ALOCAT sets aside space for 
the array whose codeword is given, zeroes this space if used for the first 
time, or restores the array to needed status in core. 

CALLS: REORG, ALOCAT, STER, SSLAD, FILES 



Reorganize memory 
dumping on tape 
arrays no longer 
needed; restore 
calling sequence 
f it was altered 




Place back- 
reference in 
first word 
of array 



Indicate if 
array was re- 
defined while 
on tape 



Store in the 
codeword the 
address of the 
start of array 




Clear array | 



Restore call- 
ing sequence 
if it was al- 
tered 




Change 
released status 




Call ALOCAT 
to allocate the 
codeword array 




Place address of codeword of second- 
level array being allocated in the call- 
ing sequence 



Subroutine RELEAS 
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SUBROUTINE: RELEAS 

TYPE: FAP 

ARGUMENTS: NAME,J,u,v 

DESCRIPTION OF ARGUMENTS: 
NAME: The codeword 
J: Present only if the array is second level and indicates which of the 

secondary arrays is to be considered 
u: Indicates whether or not the array is of ordinary preference 
v: Indicates whether the array is to be erased or saved in a memory 
reorganization 

DESCRIPTION OF PROGRAM: Subroutine RELEAS alters the codeword 

if u and v are given. It also modifies the array word to show that the array 

is not needed, 

CALLS: SSLAD, STER 




Yes 



Place new 
value of 
u and v in 
codeword 



Modify array 
word to show 
released status 



Restore calling 
sequence if it 
was modified 
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SUBROUTINE: REORG 

TYPE: FAP 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine REORG compacts data in core 
memory toward the top, erasing arrays that are no longer needed and 
placing on tape those not presently needed. 

CALLS: FILES, CHAIN 

CALLED BY: CHAIN, ALOCAT, DEFINE 



(Enter J 



Initialization 




This array is 
erasable; add 
array size plus 
one to length of 
arrays not needed 



Ordinary 



Add array size plus 
one to length of pre- 
ferred arrays 




a> 



Modify pro- 
gram so pref- 
erence is 
ignored 



© 



Memory 
overflow 



(Call CHAIN) 



Subroutine REORG 
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Unless data array 
is on tape change 
backreferences in 
array word 



ir«- 



Define next avail- 
able free space in 
the pool 



Unless the data 
arrays are on tape, 
place array size in 
array word and 
erase backreference 



Modify code- 
word to show 
array on tape 



ze in array 
word 



W rite array 
on tape 



Erase back- 
reference 



Change code- 
word to show 
array is on 
tape 




Write array 
on tape 



■o 




Take next 
array word 



f Return ) 



J 
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SUBROUTINE: SSLAD 

TYPE: FAP 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine SSLAD computes the address 
of a second-level array and places it in the calling sequence of the calling 
program. 

CALLED BY: DEFINE, ALOCAT, RELEAS 



[Ente 




Store codeword 
location 



Determine ad- 
dress of second- 
level array- 



Place this ad- 
dress in the first 
argument of call- 
ing sequence 



f Return 1 



SUBROUTINE: STER 

TYPE: FAP 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine STER restores codeword ad- 
dress in calling sequence when the calling sequence has been altered by- 
SSL AD. 

CALLED BY: DEFINE, ALOCAT, RELEAS 



[ Enter 1 




Restore code- 
word address 
to calling se- 
quence 



I 



Place zeroes in stor- 
age location indicating 
the restoration 



/Return) 



Subroutine DUMP 
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SUBROUTINE: DUMP 

TYPE: FAP 

ARGUMENTS: NAME, J 

DESCRIPTION OF ARGUMENTS: 
NAME: The codeword 

J: Present only if the array is second level and indicates which of the 
secondary arrays is to be considered 

DESCRIPTION OF PROGRAM: Subroutine DUMP prints the array which 
has the codeword NAME, J „ 

CALLS: ALOCAT,RELEAS, DUMPER 



Bring the array 
into core 




No 



Call DUMPER 
to print the array 

fReturnj 



146 Main Link 1 

SUBROUTINE: FILES 

TYPE: FORTRAN 

ARGUMENTS: NOP, NT, NFILE, NCOUNT, ARRAY 

DESCRIPTION OF ARGUMENTS: 

NOP: Indicates which operation is to be performed 



NOP 



1 
2 
3 
4 

5 



Operation 



Initialize tape 

Write an array on tape 

Read an array from tape 

Read an array that has been redefined 

Empty buffer 



NT: Tape number 

NFILE: File number 

NCOUNT: Size of the array to be written or the expected size of the 

array to be read 
ARRAY: Location in core to or from which the data is taken 

DESCRIPTION OF PROGRAM: Subroutine FILES transmits information 
between core and tape. 

CALLS: CHAIN 



© 



Set 

parameters 

{ Rewind tapes J 




Branch on 
operation 





Zero extra 
elements 



Place buffer 
into array 



Print error 
message 




xz 

/'ReturnN 




Dump buffer 
on tape 



Position 
tape 



Write array 
>n tape 



Print error 
message 



T 

(call CHAINJ 





Write buffer 
on tape 




en 

§■ 

H 

O 

P 
r+ 

P 



148 



Main Link 1 



SUBROUTINE: DUMPER 

TYPE: FORTRAN 

ARGUMENTS: K, N, LOGW 

DESCRIPTION OF ARGUMENTS: 

LOCW: Codeword about which array information is desired 
N: Number of pieces of information wanted 
K: Index to the array 

DESCRIPTION OF PROGRAM: Subroutine DUMPER prints in floating 
point, fixed point, BCD, and octal each word of the array requested. 



[Enter 1 




Print DUMP of array as- 
sociated with codeword at 
location LOCW 



Print headings for listing: 
floating, fixed, BCD, octal 



I 



Print each word of the array- 
in floating point, fixed point, 
binary coded digit, and octal 



T 

f Returm 
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SUBROUTINE: PACKW 

The following packing and unpacking programs are combined into one 
subroutine, 

1. ENTRY: PACKW 
TYPE: FAP 

ARGUMENTS: A, I, J, K, L, M 
DESCRIPTION OF PROGRAM: 

Word A is set to zero 

Then Bits 15, 16, 17 of I -> Bits S, 1, 2 of A 
Bits 3 to 17 of J -Bits 3 to 17 of A 
Bits 12 to 17 of K-> Bits 18 to 23 of A 
Bits 12 to 17 of L -> Bits 24 to 29 of A 
Bits 12 to 17 of M-> Bits 30 to 35 of A 

2. ENTRY: UPACW 

TYPE: FAP 

ARGUMENTS: A, I, J,K,L,M 

DESCRIPTION OF PROGRAM: 

Bits S, 1, 2 of A -*■ Decrement of I 
Decrement of A -> Decrement of J 
Bits 18 to 23 of A -* Decrement of K 
Bits 24 to 29 of A -> Decrement of L 
Bits 30 to 35 of A -> Decrement of M 

3. ENTRY: PADP 

TYPE: FAP 

ARGUMENTS: A, I, J, K 

DESCRIPTION OF PROGRAM: 

Word A is set to zero 

Then Bits 15, 16, 17ofI-*S, 1, 2 of A 

Decrement of J ^Decrement of A 

Decrement of K-*- Address of A 

4. ENTRY: UPADP 

TYPE: FAP 

ARGUMENTS: A, I, J,K 

DESCRIPTION OF PROGRAM: 

Decrement of A -* Decrement of J 
Address of A -* Decrement of K 
S, 1, 2 of A -> Decrement of I 
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Yes 



(Call LINKl^ 



ISOLV = 4 

1 

(Call LINK3^ 



Member: Stiffness matrices at minus end of members are computed 
in member coordinates 

NMR: Number of member releases 

MREL.ES: Modifies stiffness matrices of released members 

ISUCC = 1: Successfully processed 



Subroutine MEMBER 
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SUBROUTINE: MEMBER 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: For every member, this subroutine com- 
putes its stiffness matrix considering it cantilevered and using local-mem- 
ber coordinates at the minus end e The stiffness matrix is either taken 
directly from input or is obtained from the inversion of the flexibility ma- 
trix, which is either set up by subroutine MEMFOD or taken from input 
directly. 

CALLS: ALOCAT, PRER2, MEMFOD, XSIMEQF 

CALLED BY: MAIN LINK2 



C Enter J 



Allocate codewords for joint coor- 
dinates, incidence tables, member 
type, member components, and mem- 
ber stiffness table 



Check input of Young 1 s modulus and 
shear modulus for all members; call 
PRER2 if error found 



& 



Repeat for all ^ 

members 

JM= 1, MEXTN , 



JM > MEXTN 




Release codewords for 
joint coordinates, inci- 
dence tables, member 
type, member arguments 
and member stiffness 
table 



Identify location of member in stiff- 
ness table and in member properties. 
Locate external joint number on which 
current member is incident 



C 



Return 



l 



Compute length of mem- 
ber; initialize stiffness 
matrix array Y 
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1 



Get value of E and G/E 
for current member 



5 



A } Branch on member type 



Prismatic 



Variable EI 



Stiffness Given 



Flexibility Given 



e 



Find stiffne 
directly 




Call MEMFOD to 
compute centilever 
flexibility coefficients 



Call XSIMEQF to 
invert; if singular 
call PRER2 



© 



Store stiffness 
value directly 
in array Y 



Store stiffness matrix of member by 
rows in member stiffness table, re- 
ferred to by codeword KMKST, packed 
form 



Release reference to member prop- 
erties for correct member 




Directly invert 
flexibility value 
and store in ar- 
ray Y 



Subroutine MRELES 
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SUBROUTINE: MRELES 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: This subroutine modifies the stiffness 
matrix of each member at minus end (in local- member coordinates) into 
an effective stiffness matrix to account for releases at one or both ends 
of the member. Also FIXM is called, for a positive start release, to 
transform fixed- end forces to right end of member. 

CALLS: ALOCAT, DEFINE, COPY, CARRY, MAMUL, FIXM, PERMUT, 
PRER2, BUGER 

CALLED BY: MAIN LINK2 



f Enter J 



Define and allocate arrays 



& 



all members\ m > MEXTN 



No 




Release all code- 
words allocated 



i 

r Return J 
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Subroutine MRELES 



155 




Invert member stiffness 
associated with released 
direction Y rr by direct 
division 



( Call BUGER to invert stiffness 
V associated with released directions 



Yes 



C 



Call PRER2 



D 



ISUCC = 2 




No 



Modify member stiffness in 
array Q. (Q = Y cc - YcrY./'Y^) 



r: Number of released directions for member 
c: Number of degrees of freedom minus r 
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SUBROUTINE: MEMFOD 

TYPE: FORTRAN 

ARGUMENTS: STOP, SP, IFOD 

DESCRIPTION OF ARGUMENTS: 

STOP: Distance of applied load from left end of member or length of 
member 
SP: Array containing section properties for all segments of member 
being considered 
IFOD: Operation code 

DESCRIPTION OF PROGRAM: 

IFOD = 1: Program computes cantilever flexibility coefficients of a 

nonprismatic straight member as well as of a prismatic 

member (from MEMBER). 
IFOD = 2: Program computes cantilever deflections at right end of a 

member because of applied concentrated load (from 

MEMBLD), 

CALLS: PRER2 

CALLED BY: MEMBER, MEMBLD 




If error in input of 
segment length, call 
PRER2; then cor- 
rect length of last 
segment 



G>< 



Repeat toQyfor each 
segment 1=1, NS 



> 



Compute SLS; SLS is 
either length of current 
segment or distance 
from left end of current 
segment to concentrated 
load, whichever is the 
smaller 



Branch 
on structure type 



S 



Subroutine MEMFOD 
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t 







Transform deflection coef- 
ficients to right end of mem- 
ber and store in Y 




Yes 



Find deflection coefficients 
at right end of member under 
transformed load and store in Y 




-© 



Divide deflection coefficients 
by Young's modulus 



( Return J 
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SUBROUTINE: FIXM 
TYPE: FORTRAN 
ARGUMENTS: IC, MREL, JM 
DESCRIPTION OF ARGUMENTS: 



IC 

MREL 

JM 



Number of nonreleased components 
Release code 
Number of member 



DESCRIPTION OF PROGRAM: This subroutine generates the transforma- 
tion matrix to transform the fixed- end forces at the left end of a member 
to the right end of the member for the case in which either the left end of 
the member is released or both ends are released. 

CALLS: DEFINE, ALOCAT, CARRY, COPY, UNPCK, MAMUL, RELEAS 

CALLED BY: MRELES 

( Ente 



3 



Allocate and define next array 
for fixed- end force modifications 




Yes 



Set up force- transformation 
matrix from left end to right 
end of member 



Compute Y cr (Y rr - 1 )t which 
is stored by rows 



X 



Compute Ac^criY^" 1 )^ and 
store in Y, where T contains per- 
mutation matrix A. Finally 
(Ar Ap) is added to the above and 
is stored in Y 



Call UNPCK to identify release 
directions. Unpermutate array 
Y 



Set up force-transformation matrix T^b 
and carry out, by MAMUL, T AB Q where 
it = A c l Y cr (Y rr _1 ) t A r + A r l A r and store 
in array with codeword KMEGA 



I 



Release codewords previously 
allocated in subroutine 



f Return J 



Number of released directions for member 
Number of degrees of freedom minus r 
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SUBROUTINE: COPY 
TYPE: FORTRAN 
ARGUMENTS: A, B, JF, IX, ICM 
DESCRIPTION OF ARGUMENTS: 



A, B 

JF 

IX 

ICM 



Square matrices that are transferred or copied 
Size of square matrices A and B 
Integer that controls purpose of subroutine 

Either codeword that locates storage of copied array or integer 
that indicates array to be copied 



DESCRIPTION OF PROGRAM: 

IX = -2: Array A is filled with unit matrix. 

IX = -1: Array A is added columnwise to one- dimensional array U 
such that U(ICM + 1) = A(l, 1) + U(ICM + 1), etc. 

IX = 0: Array A is filled with zeroes. 

IX = 1: If ICM > 0, the one -dimensional array U is transferred by 

columns into array A such that A(l, l) = U(lCM + l) , etc. 

If ICM = 0, the array B is transferred into corresponding 

locations in the array A. 
IX = 2: Array A is transferred by columns to one -dimensional array 

U such that U(lCM + l) = A(l, l) , etc. 

CALLED BY: MRELES, MAMUL, PERMUT 
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SUBROUTINE: CARRY 

TYPE: FORTRAN 

ARGUMENTS: ID, JF, SS 

DESCRIPTION OF ARGUMENTS: 

ID: Identification of structure type 

JF: Size of force-transformation matrix (for example, 6 if space 

frame, etc.) 
SS: Length of member 

DESCRIPTION OF PROGRAM: This program generates the force- trans- 
formation matrix T, which transforms the generalized force vector at the 
minus end of a member to a statically equivalent force vector at the plus 
end of the member. 

CALLED BY: MRELES, LSTOR 

This subroutine generates the following types of transformation matrix: 



Plane Truss 



[o ?] 



Space Truss 



T = 



1 











1 











1 



P] 


.ane B 


"rame 






Plane 


Grid 




"l 


o~ 








1 


o 


= 





1 






T = 





1 







-SS 1 








-SS 


1 




Space 


Frame 








~1 


















1 
















T = 






1 





1 

















-SS 





1 











-S£ 













1 
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SUBROUTINE: PERMUT 
TYPE: FORTRAN 
ARGUMENTS: MREL, JF, ID 
DESCRIPTION OF ARGUMENTS: 



MREL 
JF 
ID 



Release code 

Size of permutation matrix T 

Identification of structure type, which is changed to if T is 
not identity matrix 



DESCRIPTION OF PROGRAM: This program sets up a permutation ma- 
trix T that, when it premultiplies a matrix A, will upon descending from 
top row by row shift the rows corresponding to released directions to the 
bottom of the matrix, followed upwards by subsequently released rows. 

CALLS: COPY 

CALLED BY: MRELES 



C Enter J 

(Call COPY to A 
clear T array ) 

\ 



Call UNPCK to specify 
presence of release for 
each direction I 




I > JF 



f Return J 



Set T(J , I) = 1 for 
current I th row 
to be shifted to 



Set T(K, I) = 1 for 
current I tn row to 
remain in place. 
If T is not identity 
matrix, set ID = 



J - 1 



K: Current row I minus number of released rows 

J: Final row JF minus number pf previously released rows 
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SUBROUTINE: BUGER 

TYPE: FAP 

ARGUMENTS: Nl, JQ1, JQ2, NTP, N2, N3, NV 

DESCRIPTION OF ARGUMENTS: 



JQ1 



Nl 
= JQ2 

NTP 

N2 

N3 

NV 



Maximum size of array to be inverted 

Number of rows in square array to be inverted 

Codeword for matrix to be inverted 

Refers to elements of unit matrix 

Scale factor by which determinant of NTP is multiplied 

One-dimensional erasable array, at least JQl elements 

in length 



DESCRIPTION OF PROGRAM: Subroutine BUGER sets up calling sequence 
for XSIMEQF, which gives the inversion of the stiffness matrix (that is, 
S rr ~ l where this is the part of the stiffness matrix corresponding to the 
released direction r)„ 

CALLS: XSIMEQF 

CALLED BY: MRELES, JRELES, SOLVER 



Subroutine MAMUL 163 

SUBROUTINE: MAMUL 

TYPE: FORTRAN 

ARGUMENTS: Y, T, A, JS, JT, JJ 

DESCRIPTION OF ARGUMENTS: 

Y, T, A: Program does matrix multiplication T • Y • A where sizes of 
arrays are: T: JT X JS 
Y: JS X JS 
A: JX X JT 
JJ: Operation code 

DESCRIPTION OF PROGRAM: 



JJ = -1 

JJ = 
JJ = 1 



Matrix multiplication TY 



Matrix multiplication TYA^ 
Matrix multiplication T^YA 
Result of matrix multiplication is stored in array Q Subroutine COPY 
is called to copy contents of A into array Y, 

CALLS: COPY 

CALLED BY: MRELES 
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SUBROUTINE: UNPCK 

TYPE: FAP 

ARGUMENTS: MM, I, ID 

DESCRIPTION OF ARGUMENTS: 

MM: Release code for member being considered 

I: 1 to JF, specifies direction of release in member word (JF: num- 
ber of degrees of freedom) 
ID: Structure type 

DESCRIPTION OF PROGRAM: This program considers bits 12-17 of the 
release code MM, It returns MM ^ if release is in the I^ n direction. 
Bit b of word MM corresponds to direction I, where I = 18 - b. 





Truss 


Grid 


Plane 


Frame 


Space 


Frame 


Type of Release 


I 


b 


I 


b 


I 


b 


I 


b 


F 

X 


1 


17 






1 


17 


1 


17 


F 

y 










2 


16 


2 


16 


F 
z 






1 


17 






3 


15 


M 

X 






2 


16 






4 


14 


M 

y 






3 


15 






5 


13 


M 
z 










3 


15 


6 


12 



CALLED BY: PERMUT, FIXM 
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(Enter) 



(Call LOADPc) 




ISUCC 



= 2 



1 (Call LINkP) 



ISOLV = 5 



^ r 

(^Call LINK4) 
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SUBROUTINE: LOADPC 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: Subroutine LOADPC monitors the proc- 
essing of loads. Processing is done by members and by joints. LOADPC 
checks for the presence of a member (or joint) and for the presence of 
loads on existing members and joints. For each existing load LOADPS is 
called. 

CALLS: ALOCAT, DEFINE, CLEAR, RELEAS, LOADPS 

CALLED BY: MAIN LINK 3 



M > MEXTN 



Release array names of 
Young's modulus, shear 
modulus, and those for 
member loads and prop- 
erties 



Allocate codewords for 
joint type, joint loads, 
and internal joint num- 
bers 



f EnterJ 



Allocate code- 
word arrays 




Yes 



Clear joint - 
load arrays 



Repeat for 
all members y*Gr 

v m = i.mext: 




Allocate KMEGA for 
this member; get 
member length 
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Yes 



No 



Repeat 
for all joints 
J= 1, JEXTN 



J > JEXTN 



J < JEXTN 



Obtain internal 
joint number for 
current joint 




Allocate current 
joint load data 
JLOAD(J) 




Yes 



Call LOADPS to 
find resultant 
joint loads 



Release load da- 
ta for this joint 
JLOAD(J) 



Release all arrays 
defined and allocated 
at the start at this 
subroutine 



^Return J 
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SUBROUTINE: LOADPS 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: For any loading type, that is, joint loads, 
member loads, member distortions, member-end loads or joint displace- 
ments, this subroutine compacts load data for all loadings on a member 
or joint into PL (and also into PR if there are applied member-end loads). 
These load data are then processed for the given loading type, to finally 
find resultant joint loads with ends of member considered completely fixed. 

CALLS: UPADP, UPACW, ALOCAT, JTLOAD, MEMBLD, MDISTN, 
JDISPL, CASE 2, RELEAS, LISTOR 

CALLED BY: LOADPC 



C Enter J 



< Repeat to (A) for all N. 
load blocks 1 to NBL ^S~ 

1 



No more load blocks 



Locate joint-load or member-load 
data for current nondeleted load 
block; call UPADP to identify 
loading condition and type 



Q 



Call UPACW to assign size of load 
block and type and direction of load 



D 



Allocate member -end force and 
member-distortion vectors for 
current loading condition 



Store load row data for 
current load in PL 



Store loads at right end 
of member into PR after 
change; put PR into PL 
and -PL into PR 



1 



(Return J 




Allocate member proper- 
ties. Call MEMBLD to 
find fixed -end member 
forces 




Call CASE2 to 
obtain external 
load at each 
free joint 



Call LSTOR to 
transfer forces 
at end of mem- 
ber to joints 



Subroutine MDISTN 
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SUBROUTINE: MDISTN 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: If member distortions are given for mem- 
ber JM, subroutine MDISTN adds these to KUV for member JM, then 
multiplies given distortion by member stiffness K* to get contribution 
to KPPLS, KPMNS, and KPPRI (or KPDBP). Product of K* and distortion 
is fixed-end force at minus end and is stored in PR (for CASE2) Quanti- 
ty -PR is translated over member to get plus -end force vector, temporar- 
ily stored in PL, 

CALLED BY: LOADPS 



(^EnterJ 



Add member distortion to KUV for member JM 



Multiply distortion by local stiffness KMKST. 
Store in PR. PR is now fixed-end force at mi- 
nus end except for modification for start release 
in LSTOR 



r 



Set PL = -PR 



<^Type> 



Trusses 



L 



Not truss 



Modification of PL(4, 5, 6) 
for translation of forces 
over member 



Translation 
of -PR over 
member axis 
to get PL 



1 ' 
C Return j 
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SUBROUTINE: MEMBLD 

TYPE: FORTRAN 

ARGUMENTS: SP 

DESCRIPTION OF ARGUMENTS: The array SP contains section proper- 
ties for all segments of member being considered. 

DESCRIPTION OF PROGRAM: For a typical member, treating it as a can- 
tilever fixed at the left end, this program computes cantilever forces at the 
left end of the member and cantilever deflections at the right end of the 
member under two types of loading: 

1. Concentrated load 

2. Uniform or linear loading 

These loads may be applied along the X, Y, or Z local-coordinate axes of 
the member. 

CALLS: UPACW, PRER2; STICLD, MEMFOD, EFVDTL, LINEAR 

CALLED BY: LOADPS 



(Enter j 



Call UPACW to unpack 
load data for member 



Call PRERZ if member 
type incorrectly specified 



Store Young's modulus, 
and shear modulus ratio 



Delete load directions J 
if plane grid or plane 
frame 



Concentrated 



Call STICLD to compute 
cantilever forces at left 
end of member 
Call MEMFOD to compute 
cantilever deflections at 
right end of member 



Call EFVDTL to compute 
left and right fixed- end 
forces for member 



T 

f Return j 




Reassign dimensions of 
loading on member 
Call STICLD to compute 
cantilever forces at left 
end of member 



© 
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£ 



Compute axial de- 
formation for each 
segment. 
Call EFVDTL 



© 



< 



Repeat for all 
segments 1 to NS 

" 1 ' 



Call LINEAR which com- 
putes cantilever deflections 
at right end E of member 
with support at A, due to 
uniform or linear loading 
on a segment 



Yes 




If load commences at point A, a 
distance SB from C, compute 
deflections due to force V^ and 
moment M^ on cantilever length 
CA. Transform these deflections 
to right end E of member and add 
them to deflections previously- 
computed in LINEAR and for 
other previous segments 






3 



. Current Segment 



If the current segment is the first 
where the loading commences, or 
if the right end of this segment is 
to the left of the point where the 
load commences, compute deflec- 
tions due to force Vj) and moment 
Mq on cantilever of length AD. 
Transform these deflections to E 
and add them to previous deflec- 
tions 




Divide all deflections 
by Young's modulus 



Call EFVDTL to com- 
pute right and left fixed - 
end forces for member 



f Return^ 



■1 



m 



-Current Segment 



■H 



Symbols: 
Point A: 



Point B : 



Point C 
Point D 
Point E 



Left end of load or at left end 
of current segment, which- 
ever is further to the right 
Right end of load oor at right 
end of current segment, 
whichever is further to the 
left 

Left end of current segment 
Right end of current segment 
Right end of member 
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SUBROUTINE: CASE 2 (Jl, J 2) 

TYPE: FORTRAN 

ARGUMENTS: Jl, J2 

DESCRIPTION OF ARGUMENTS: 

Jl: Subscript of variable U, gives location of plus -end load vector PL 
J2: Subscript of variable U, gives location of minus -end load vector PR 
JM: Member number 

DESCRIPTION OF PROGRAM: Subroutine CASE 2 is called for all types 
of loads except joint loads. Arrays PL and PR contain member -end forces 
due to the "load" at entry to CASE 2. It adds the necessary components to 
KPPLS, KPMNS, KPPRZ, KPDBP, from PL, PR. Arrays PL and PR, 
which are in member coordinates, must be rotated to get contributions to 
KPPRI, KPDBP. 

CALLS: TRAMAT 

CALLED BY: LOADPS, LSTOR 



Q Enter ) 



(Call TRAMAT ) 



Compute address for member -end 
forces KPMNS, KPPRI, KPDBP 



Add force in PR to KPMNS 



Rotate PR to global coordinate 
and add to KPPRI or KPDSP for 
minus joint 



Subtract forces in PL from KPPLS 



Rotate to global coordinates and 
subtract from KPPRI or KPDBP 
for plus joint ^ 



Q Return^) 
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SUBROUTINE: JDISPL 
TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: This routine processes prescribed joint 
displacements (for support joints, in nonreleased directions). By using 
the transpose of the incidence table (array KATR), subroutine JDISPL 
computes contributions to the member distortions KUV for all members 
incident to this joint. Using the stiffness matrix for each member, this 
routine obtains the corresponding fixed-end forces KPPLS and KPMNS 
(reflecting given member releases) . 

CALLS: ALOCAT, TRAMAT, LSTOR, RE LEAS 

CALLED BY: LOADPS 



Q Enter ) 



Do for all \ 

incident members / 




» (Call TRAMAT) 



Translate displace- 
ment to minus end 



Rotate displacement (= member distortion) 
into member coordinates; call TRAMAT 



Multiply member distortion by member 
stiffness K* (KMKST) to get force at minus 
end (KPMNS); store in temporary area PR 



Translate PR over member to get force at 
plus end (KPPLS); store temporarily in PL 



(Call LSTOR) 



^Return J 
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SUBROUTINE: JTLOAD 
TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: Thip routine stores contributions to the 
effective joint-load vectors P f and P 1 (arrays KPPRI and KPDBP) for 
free and (released) support joints, respectively. 

CALLED BY: LOADPS 



f Enter^) 




C Return j 
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SUBROUTINE: LSTOR 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: This subroutine modifies the fixed- end 
force vectors for members with releases prescribed at the plus end 
(start), using the auxiliary matrix KMEGA saved by MRELES (see Sec- 
tion 4.2). The fixed-end force vectors are temporarily stored in V, W. 

CALLS: CASE 2 

CALLED BY: LOADPS, JDISPL 



(" Enter ) 



Yes 




Set force vector at start, 
V(I), to zero, and force 
vector at end, W(I), equal 
to cantilever force 



Allocate KMEGA and modify 
minus-end force for start 
release Rg = Rg + £2 • F ca 



By statics compute modified 
fixed-end force at the start 



Call CASE 2 to store fixed- 
end forces 



3- 



(Return) 
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SUBROUTINE: LINEAR 

TYPE: FORTRAN 

ARGUMENTS: SL, CC 

DESCRIPTION OF ARGUMENTS: 

SL: Length from left end of member to right end of segment being 

considered 
CC: Length from left end of member to left end of uniform or linear 
load on segment being considered 

DESCRIPTION OF PROGRAM: This subroutine computes deflections 
and rotations at right end of a segment under uniform or linear loading 
and transforms to the right end of the member. The values computed 
are cantilever deflections, and the fixed support is taken either at the 
left end of the uniform or linear load or at the junction of the previous 
segment, whichever is further to the right. 

CALLS: PRER2 

CALLED BY: MEMBLD 



Define arithmetic statement functions 
equal to cantilever deflections and ro- 
tations at right end of a segment under 
uniform or linear loading 



QEnterJ 



Compute value of uniform or linear 
load at point B 



T 



Compute length of uniform or linear 
loading from point A to point B 
Compute length from point B to right 
end of member 



Compute axial deformation 
due to loading distributed 
axially along AB 




Compute the deflections and 
rotations at B for the canti- 
lever AB with support at A 
and transform to right end 
of member 



Call PRER2 if wrong 
direction is given for load 



T 

f Return J 



Typical example: 





puJXL 


[m 






i 


Current 




A 


B 




segment n 





Symbols: 

Point A: Left end of load or at left end of current segment, whichever is 
further to the right 

Point B: Right end of load or at right end of current segment, whichever 
is further to the left 
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SUBROUTINE: EFVDTL 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: This program computes right-end force 
vectors (assumed as acting on member) for a member by multiplying the 
member stiffness matrix by the cantilever deflections vector. Finally, 
left-end force vectors are calculated by statics. 

CALLED BY: MEMBLD 



(Enter) 



Transfer the member stiffness 
matrix K* into the array Y 



Multiply K* by cantilever deflec- 
tions vector to obtain right-end 
force vector PR 



Transform right-end force vector 
to left end of member 



Compute left-end force vector PL 
of member by subtracting the above 
transformed right-end force vector 
from the left -end cantilever force 
vector 



^Return J 
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SUBROUTINE: STICLD 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: For a cantilever fixed at the left end, this 
program computes by statics the cantilever forces at the left end of the 
member resulting from the applied loading, which may be concentrated, 
uniform, or linear 

CALLED BY: MEMBLD 



Concentrated 




Consider concentrated load 
as cantilever reaction at left 
end of member 




Yes 



No 



Compute cantilever moment 
at left end of member due to 
concentrated load 



c 



Uniform or linear 



Calculate total load and con- 
sider as cantilever reaction 
at left end of member 



Yes 




No 



Compute cantilever moment 
at left end of member due to 
uniform or linear load 



Retur 



D 
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SUBROUTINE: TRAMAT 
TYPE: FORTRAN 
ARGUMENTS: JM, JT 

DESCRIPTION OF ARGUMENTS: 



JM 

JT 

JT = 1 

JT = 2 



Member number 

Operation code 

Form translation matrix only, minus node to plus node 

Form rotation matrix only, global to local 



DESCRIPTION OF PROGRAM: TRAMAT computes the force translation 
or force rotation matrix for member JM. The matrix is formed using 
the array KS (member length and projections of member axes on global 
axes AX, AY, AZ). The matrix is stored into T(I, J) located at 77415. 

The vector rotation matrix from global X, Y, Z coordinates to member 
local x, y, z coordinates may be thought of as the product of two rotation 
matrices, R T and R. The R matrix rotates' the global axes first into an 
intermediate X 1 , Y ! , Z ! system with (3 = , and the R' matrix rotates the 
intermediate system (through an angle (3) into the local coordinates. 

The rotation matrix from global to intermediate coordinates will be de- 
veloped first„ Consider a directed member of length L from plus to minus 



AX = X<"> - X< + > 
AY = Y<-> - Y< + > 
AZ = Z<"> - Z< + > 




+ AZ 



joints with projections of AX, AY, AZ in the X, Y, Z global frame. These 
are shown positive as are the two angles ijjj and 4*2- The X* intermediate 
axis is along the member from plus to minus joints; the Y f axis lies in 
the plane of X ! - Y, directed such that its projection on the Y axis is pos- 
itive,, All systems are orthogonal. The unsigned projected length in the 
X - Z plane is 



D = + V(AX) 2 + (AZ) 2 



180 



Main Link 3 



The angle cpi may have any value between and 360 degrees; the 
has limits: 



angle \\> z 



-90° < ^ 2 < + 90° 



If the member is perpendicular to the X - Z plane (D = 0), a special case 
arises that will be considered later. 

With these definitions, the member is considered to rotate about the Y 
axis in the general case. For plane structures, \\) x is identically zero and 
the member rotates about the Z axis. 

The elements of R are direction cosines. Any element R^ is the cosine 
of the angle between the ith intermediate axis and the jt* 1 global axis. 

For example, the first column of R may be thought of as the projections 
of a unit vector in the X direction on the X f , Y f , Z f axes: 



Z* = -sin \\i A 

Y f = -cos ijjj sin \\t 2 

X 1 = cos 4<i cos \\i 2 




Projection of unit vector in Y direction on X f , Y 1 , Z f axes: 



X 1 = sin i|j 2 
Y ! = cos 4"2 
Z» = 
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Projection of unit vector in Z direction on X', Y ! , Z f axes: 



Z f = COS i|»! 

Y 1 = -sin 4<i sin i|i 2 
X f = sin ip! cos ip2 




where 



R - V 



V 1 = 



X f 1 




X 


Y» 


, v = 


Y 


zn 




Z 



and 



R = 



COS Ipl COS ^2 S ^ n ^Z 

-cos 4i sin 4*2 cos 4*2 
- sin 4*1 



sin 4»i cos 4^2 

-sin 4*1 sin ^2 

cos 4*1 



The rotation from intermediate to local coordinates is merely a plane 
rotation of the Y f , Z f axes through the angle (3: 




v = R f • V 



where 





I x 






x» 


V = 


y 

I z 


. V' 


~ 


Z ! 
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and 



R» 



1 











cos (3 


sin (3 





-sin (3 


cos (3 



Since 



then 



and 



V f = R • V, v = R f • V 1 



v = R ! • R ■• V 



3t = 



cos i\i x cos i|i 2 sin i|; 2 sin i|j x cos \\t 2 

(-cos i|ij sin^cos p - sini^ sin (3) cos 4 2 cosp (-sini^ sin^ 2 cos P'+ cos ^i sinp) 

(cos \\t x sin>ji 2 sinp - sin \\i x cos p) (-cos 4» 2 sinP) (sin 44 sin i|j 2 sinp + cos ipj cosP) 

In general (consistent with the limits on 4*i and \\j 2 ) 

AX 

cos cJj x = — - (sign of AX) 

sin 4*i = -— (sign of AZ) 

cos i|j 2 = j- (always positive) 

AY 
sin l)j 2 = -- — (sign of AY) 

For the special case D = (member perpendicular to the X - Z plane), 
\\t x s 0, 4*2 = ± 90, therefore 

AY 

cos ipi = +1» sin 4*x ~ ®> cos l(j 2 = 0, sin \\t z = -— — 



For plane structures, \\i x = 0, p = n • 90°, n = 0, ±1, ±2, ±3. 
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Skew translation 
matrix, along 
member axis 




Clear T(I, J) = 



= 2 



Rotation matrix 




cos P = 1 
sin (3 = 



No 



zture>^ 

-* 


V 




AZ = 





* 





Check for special 
cases of member 
orientation 



> r «: 



Fill nonzero elements 



r 1 ^ 

( Return J 
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C 



Call TRANS and 
rotate stiffnesses 



J 



ISOLV = 6 ] 



c 



I 



Call ATKA and assemble 
structural stiffness 



5 




(Call LINkT) 



(Call LINK6) 



Subroutine TRANS 
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SUBROUTINE: TRANS 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: This subroutine rotates the local member 
stiffness matrix into global (joint) coordinates. It obtains the rotation ma- 
trix from TRAMAT and uses subroutine CLEAR to initialize the data ar- 
rays of KSTDB where the member stiffness in global coordinates is stored. 

CALLS: CLEAR, TRAMAT, MATRIP, RELEAS 

CALLED BY: MAIN LINK2 



C Enter } 



Allocate arrays 



X 



Do (A) for all mem- 
bers M = 1, MEXTN 



Member\ Yes 




Allocate stiffnesses KMKST 
and KSTDB; clear KSTDB 



(Call TRAMAT for\ 
rotation matrix J 

CCall MATRIP t<T\ 
rotate stiffness J 



Release stiffnesses 



Release arrays 
(Return) 
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SUBROUTINE: ATKA 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine_ATKA generates the lower right 
half of the structural stiffness matrix A KA from the member stiffnesses 
in (end) joint coordinates and the member- incidence tables Using a loop 
on member stiffnesses the diagonal stiffnesses are successively added to 
KDIAG, and off- diagonal stiffnesses are stored in KOFDG „ The symbolic 
connections by matrix arrays IFDT and IOFDG are generated. 

CALLS: ALOCAT, MATRIP, TRAMAT, RELEAS 

CALLED BY: MAIN LINK2 




Clear all data arrays 
KDIAG and KOFDG 
(stiffness arrays) 



/ Do® \ 

\L = 1, MEXTN/ 




Get stiffness. 
Get internal 
joint members 
JP, JM 



Add stiffness to diagonal elements 
of joints JM and JP (for joint JP 
must translate over member length) 



Store stiffness in KOFDG corresponding 
to row of larger joint member and col- 
umn of smaller joint number 



Pack IOFDG and IFDT for information 
on stored stiffness elements 
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SUBROUTINE: JRELES 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: This routine controls the modification of 
stiffness matrix A T KA for the effect of support-joint releases. 

CALLS: ALOCAT, DEFINE, TTHETA, UNPCK, STEP2, BUGER, PRER2, 
RELEAS, STEP5. 

CALLED BY: MAIN LINK3 




Compute the transformation matrix from re- 
leased coordinates at a support joint to global 
coordinates; unpack release data and generate 
matrix A 2 R (product of permutation and hyper - 
diagonal rotation matrices) 



Call STEP2 to pre- and postmultiply 
the structural stiffness matrix by 
A 2 R and store the product in K 33 



Call PRER2 
ISUCC = 2 




( 



Call STEP5; the submatrices of stiffness matr 
are modified to include the joint releases 



5 



(Return J 
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SUBROUTINE: STEP2 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine STEP2 performs the matrix 
triple product (A 2 R)A t KA(A 2 R) t = K 33 by bookkeeping. The structural 
stiffness matrix A 2 R is stored in KV in packed form by JRELES. Its 
product K 33 is the structural stiffness matrix associated with released 
support-joint components. 

CALLS: MAPROD, DEFINE, ALOCAT, RELEAS 

CALLED BY: JRELES 



(Enter) 



+S Do ® K = 1, NJR\ 

V 



Find I(K) from 
Table KV 



-►< ^ Do (S) J = 1, NJR^ > 



I 



Find IP(J) from 
Table KV 




On diagonal 
use KDIAG 



Off diagonal 
use KOFDG 



Call MAPROP to perform matrix 
product K 33l IP = (A 2 R) KI * 
^A t KA I> ip*(A 2 R) J> ip 




(Return! 



Subroutine MATRIP 
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SUBROUTINE: MATRIP 

TYPE: FORTRAN 

ARGUMENTS: Kl, K2, NT 

DESCRIPTION OF ARGUMENTS: 

Kl : Subscript for pool-variable U or IU; position of first element of 

matrix T with respect to U(0) 
K2: Subscript for pool -variable U or IU; position of first element of 

resultant product with respect to U(0) 
NT: Operation code 

NT = 1: Transpose premultiplier 

NT = 2: Transpose postmultiplier 

DESCRIPTION OF PROGRAM: Subroutine MATRIP performs the triple 
matrix product of order JF as follows (JF = 2, 3 or 6): 

NT = 1: U(K2) = T* • U(K1) • T 

NT = 2: U(K2) = T • U(K1) • Tt ' 
The matrix T is always located at U(73) and is dimensional T(6, 6), not 
packed. However, U(K1) and U(K2) are packed to JF X JF. 



(Enter) 



= 1 




NT" 



Transpose the premultiplier 
matrix result = U(K2) = 
T T • U(K1) • T 



= 2 



Transpose the postmultiplier 
matrix result = U(K2) = 
U(K2) = T • U(K1) • T T 



(^Return J 
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SUBROUTINE: STEP5 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: It modifies the free-joint structural stiff- 
ness A^KA as affected by joint releases, does the product A^KA (ft ) A^KA, 
and subtracts the result from A^KA. 

CALLS: ADRESS, ALOCAT, DEFINE, UPADP, PADP, RELEAS 

CALLED BY: JRELES if there are free joints. 



•I, (IP) 



M 



A^A 





— *-JMS(J) 




* 






I 


Q 


} 









JMS: J - NFJS 
I: IP - NFJS 




Subroutine STEP5 
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(Enter) 

_E_ 



Is A KA hyperdiagonal? 
If yes, need only con- 
sider I = JMS 



J ^© \ 

\ K = 1, NFJS / 



^Allocate (KDIAG,KH 



\J = NFJS + 1,NJ / 




J' = J 



Allocate 

KOFDG(J.K) 

n (JMS) 
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M = M + 1 




Yes in row IP' 

IP= IP 1 
1 



9 

/ Do© \ 

\ M = K + 1 , NFJS / 



\ I = 1 , NDAT / 



IP = I + NFJS 



No 



M = M + 1 



No 




Yes 



No 



Yes 



Modify KDIAG 



s' Is ^S. 


s^ Yes 








^KOFDG(M,K) Ns 




Allocate 


already existing 






KOFDG 


JNo 




■ 


' 


Define and al- 
locate KOFDG 







Modify KDIAG 



Do product A fc KA * fi * A fc KA and 
subtract from KOFDG(M, K) if 
MitKor from KDIAG(K) if K = M 



Subroutine STEP5 
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& 



^Loop 



Yes 




No 



Release KOFDG(M, K) 



Release 

KOFDG(IP,M) 

IOFDG(IP) 




Release 

fio(JMS) 

KOFDG(J,K) 

IOFDG(J) 



B) ^22P- 



Release KDIAG(K) 



f Return ) 
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SUBROUTINE: FOMOD 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: For every loading condition this sub- 
routine modifies the joint-load matrix or computes support-joint displace- 
ments If there are no free joints, it computes displacements of released- 
support joints and stores the result in array KPDBP. If there are free 
joints, FOMOD modifies the joint-load array KPPRI to account for the 
joint releases. 

The subroutine calls ADRESS to obtain off-diagonal elements of the 
stiffness matrix of the structure and calls MAPROD to perform the double 
matrix product to obtain the external joint-load matrix to be added to KPPRI. 

CALLS: ALOCAT, ADRESS, MAPROD, RELEAS 

CALLED BY: MAIN LINK4 



(Enter) 

/^ Do (A) for all independent >v 
N^ loading L = 1, NLDSI / 



Compute product ft • P^L); 
store in scratch array NSCR5 
(P« = KPDBP) 



Put array NSCR5 back into 
KPDBP 




No 



Subtract from KPPRI(I) the 
product AtKA*NSCR5 mod- 
ification of free -joint loads 



(Return) 



Subroutine ADRESS I95 

SUBROUTINE: ADRESS 

TYPE: FAP 

ARGUMENTS: N, I, NP, IT 

DESCRIPTION OF ARGUMENTS: 

N: Number of the row under consideration in matrix AKA 
I: Number of the column under consideration in matrix A*KA 
NP: Subscript obtained in routine ADRESS which is used to find code- 
word for off- diagonal stiffness matrix of member joining N- I 
IT: Operation code, determining the operations carried out by routine 
ADRESSo Each operation is defined in the description of pro- 
gram,, 

DESCRIPTION OF PROGRAM: Subroutine ADRESS performs five differ- 
ent functions depending on IT: 

1. IT = 0: Place a bit into IFDT corresponding to submatrix A t KA(N,l) 

N > I > lo This function does not allocate IOFDG. 

2. IT = 1: Determine which submatrix ^KACk.I), NFJS > K > N > 

I > 1], in the I th column of A t KA starting at the N th row, 
is the first nonzero submatrix encountered at or below the 
N row. The routine returns the row number K (in N) and 
its position in KOFDG (in NP). If there are no nonzero ele- 
ments in that column below row N, NP = 0„ Routine allo- 
cates IOFDG(K) p The absence or presence of a nonzero 
submatrix is determined by the absence or presence, re- 
spectively, of a bit in the corresponding bit picture IFDT 
of the joint stiffness matrix. This bit picture is arranged 
by columns and is stored in words of IFDT, which is a 
second- level array, each data array being 200 words in 
lengtho Subroutine ADRESS will allocate and release the 
data arrays of IFDT as needed but does not do anything to 
the codeword array. 

Array_ IOFDG(K) represents the structure of the row K 
of A^KA below the diagonal, indicating the position of non- 
zero subarrays. Since the data arrays of IOFDG are de- 
fined in blocks, the first word in each data array contains 
two pieces of information: 

a The decrement contains the current number of non- 
zero submatrices in row K below the diagonal, 

bo The address part contains the defined length of 
IOFDG(K), 

Succeeding words also contain two pieces of infor- 
mation: 

a. The decrement contains the column position of the 
submatrix in A^KA 

b. The address contains the position of the submatrix in 
ROFDG. 
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3. IT = 2: Determine whether a bit is present in position N, I. If not, 

return NP = 0. If it is, call ALOCAT IOFDG(N), RETURN, 
NP=NUMBER OF SUBMATRIX N, I IN KOFDG. Do not touch 
N or I. 

4. IT = 3: Determine how many bits are present in column I. Return 

the number in NP. There is no allocation of IOFDG. 
5 IT = 4: Same operation as IT = 1 except search goes to row NJ, not 
NFJS. 

CALLS: ALOCAT, RELEAS 

CALLED BY: DEFSUP, FOMOD, STEP5, SOLVER 



Initialization 



IT = 



Place a bit in IFDT 
array which corre- 
sponds to the subma- 
trix of AtKA in the 
N th row and I th col- 
umn 



IT = 1,2 



(Z)_ 



Branch on 
operation type 

IT = 4 



NMAX = NFJS 



^_ 



NMAX = NJ 



Allocate the N lJ 
array of IOFDG 



IT = 3 



NP = position of sub- 
matrix in KOFDG 




Count num- 
ber of bits 
in column I 
I 



Store results 
in NP 



N=N+1 



Allocate the N 1 
array of IOFDG 



Yes 



E) 



Subroutine TTHETA 
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SUBROUTINE: TTHETA 

TYPE: FORTRAN 

ARGUMENTS: KJND, ID, JF 

DESCRIPTION OF ARGUMENTS: 

KJND: Subscript used for finding joint-release information. First 
word of array contains number of joints with releases. 
ID: Structural -type identification number 
JD: Number of degrees of freedom 

DESCRIPTION OF PROGRAM: Subroutine TTHETA computes the rota- 
tion matrix from released coordinates to global -coordinate axes for a 
released support. Subroutine COPY is used to clear Q and the transforma- 
tion matrix is stored in Q(6, 6) which starts in U(73). The transformation 
matrix is obtained for any structural type c 

CALLS: COPY 

CALLED BY: JRELES 



(jEnter) 



Clear Q using sub- 
routine COPY 



Complete direction 
cosines between axes 



Store rotation matrix in 
Q according to structural 
type ID; matrix is packed 
to JF*JF elements within 
Q(6,6) 



( Return) 
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SUBROUTINE: MAPROD 

TYPE: FORTRAN 

ARGUMENTS: Nl, NZ, N3, N4, IS, JF, IND 

DESCRIPTION OF ARGUMENTS: 

U(N1): First element of pre multiplier A 

U(N2): First element of second matrix in triple product B (B is square 

matrix) 
U(N3): First element of postmultiplier C 
U(N4): First element of resultant matrix D 

IS: Number of rows in A equal number of columns in C 
JF: Number of rows in A equal size of B 
IND: Operation code 

DESCRIPTION OF PROGRAM: Subroutine MAPROD performs matrix 
double or triple product, depending on IND: 

IND = 0: U(N4) = U(N4) + U(N1) • U(N2) • U(N3); D = D + A • B • C 
[IS X IS] = [IS X JF] X [JF X JF] X [JF X IS] 
U(N4) = U(N4) + U(N1) X U(N2)t • U(N3); D = D + AB^ 
[IS X IS] X [IS X JF] X [JF X JF] X [JF X IS] 
U(N4) = U(N4) + U(N2) X U(N3); D = D + B • C 
[JF X IS] = [JF X JF] X [JF X IS] 
IND = 3: U(N4) = U(N4) + U(N2) X UfNS)^ D = D + B • C* 

[JF X JF] = [JF X JF] X [JF X JF] 
IND = 4: U(N4) = U(N4) + U(N2) t X U(N3); D = D + B t . C 
[JF x IS] = [JF X JF] X [JF X IS] 



IND = 1: 



IND = 2: 



All matrices are stored by columns in one -dimensional arrays, 
resultant matrix product is added to the matrix located at U(N4). 

CALLED BY: STEP2, FOMOD 



The 



IND 



(Enter) 



IND = 4 




C Return ) 
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(^Enter/) 



Ccall SOLVER^ ) 



Jr 

<JSUCC^> = Z » (Call LINKlJ 



= 1 



ISOLV = 10 



( Call LINK6 ) 
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SUBROUTINE: SOLVER 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine SOLVER solves the joint- 
equilibrium equations for the displacements of all free joints. 

This subroutine uses a modified Gaussian elimination procedure (for- 
ward and backward sweep) operating on submatrices as elements. The 
matrix A^KA is assumed symmetric, and only the lower diagonal matrix 
is treated. 

Method of storage: KU f = P ! 

1, Diagonal submatrices K: KDLAG, second-level arrays (one subma- 

trix for each joint.) 
2 Off-diagonal submatrices of K: KOFDG, second-Level arrays (one 
matrix per nonzero submatrix). These submatrices are ordered 
by member for all initial submatrices and consecutively for all 
submatrices as they are defined during elimination. 

3. Effective applied joint loads P ! : KPPRI, first-level arrays in- 
cluding all joint loads for all loading conditions. They are ordered 
by loading condition. 

4. Bookkeeping systems: 

a. IOFDG: Coded representation of the off -diagonal elements, 
second-level arrays (one datum per row of A^KA.) Only non- 
zero elements are stored. Decrement contains column order. 
Address contains position in KOFDG of the corresponding sub- 
matriXo 

b. IOFC: Used in the backward sweep of SOLVER. It contains the 
same information (except first word of each array) as IOFDG, 
but the information is by columns. IOFDG is released during 
forward sweep. 

c. IFDT: A second-level array (200 words per array) with rep- 
resentation of complete left lower half of A^KA, one binary bit 
per submatrix. Bit is 1 if submatrix (I, K) exists; bit is if it 
does not exist. The storage order is by column, column 1 first. 
In each word bits are ordered from right to left. 

5. Displacements U 1 are stored in KPPRI after SOLVER. 




NFJS Joints 



NFJS 
Joints 



Subroutine SOLVER 
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(Enterj 

Vl/ \ K = 1, NFJS/ 

j £_ 

1 Invert KDIAG(K) j 




iDefine and allocate IOFC(K)| 

_^p 



Do (B) 

N = N + 1, NFJS 

t 



> 



Call ADRESS and search 
K th column of IFDT for 
next nonzero element (N, K) 
starting at row N 




Modify diagonal 
element; store 
it in Y 



< 




©— <5S> 

1 



Subtract Y- K th row 
from n + 1 th row 




Yes 



Define and allo- 
cate the element 

t 



-0 



[Modify load vectors] 
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£ 



Do (E) 

L = 1, NLDSI 

i 



> 



P* = P' - Y * P' 



©■ 



[ Backsubstitutionj 




I Get new elements] 

J Do© \ 

\ Kl = I, NFJS/ 

T 



KPPRI = KPPRI - KOFDG * KPPRI 
(Kl) (Kl) (K1,KI) (KI) 



For all load conditions multiply 
the inverse of diagonal subma- 
trices with modified loads 



I Obtain displacements] 



Release arrays! 

T 

(ReturnJ 



Subroutine MAPRDT 
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SUBROUTINE: MAPRDT 
TYPE: FORTRAN 
ARGUMENTS: NI, N2, N3, N4, IZ, KF, INP 

DESCRIPTION OF ARGUMENTS: 

U(N1): First element of premultiplier A 

U(N2): First element of matrix B (square) 

U(N3): First element of postmultiplier C 

U(N4): First element of resultant matrix D 

IS = IZ = number of rows in A = number of columns in C 



KF: Number of columns in A 
IND = | INP | = operation code. 



size of B 



DESCRIPTION OF PROGRAM: Subroutine MAPRDT performs triple or 
double matrix multiplication of arrays whose U subscripts are Nl, N2, 
and N3 Whether this multiplication is triple or double is determined by 
the operation codes. 

B • C 

B* • C 



IND = 1 
IND = 2 
IND = 3 
IND = 4 
IND = 5 



D = 
D = 

Do = 
D = 

D n 



A 
A 
B 
B 



C 
C* 

• c 



Whether D is either 



The matrix D is first stored in a working area. 

directly stored in D, added to D, or subtracted from D is determined by 

the signs of IZ and INP. 

D+ D 

D - D 

"Do 
Do 



1. 


IZ < 





INP > 


D 


2. 


IZ < 





INP < 


D 


3 


IZ > 





INP > 


D 


4. 


IZ > 





INP > 


D 



" ^0 



CALLED BY: SOLVER 



C Enter) 



Compute values of constants 
for operation of the program 
IS= |IZ|, JF=KF, IND= |INP| 




Branch for each 
value of IND 
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IND = 1 



IND = 2 



IND = 3 IND = 4 IND = 5 



© © © © © 



Compute 
D = A • B • C 



Compute 
D = A • BT . C 



Compute 
D = B • C 



Compute 

D = B • CT 



Compute 
D = BT . C 




>0 ^/X j <°^ Z = ? >^ » 



Add 
= +1.0 




Subtract 
c = -1.0 



Subtract 
c = -1.0 



Add or subtract the re- 
sult D to contents of 
U(N4) 




Clear U(N4) and 
store result with 
negative sign in 
U(N4) 



Store result 
in array 
U(N4) 



^Return J 



MAIN LINK 6 
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(Enter) 



Call BAKSUB 
Backsubstitution 




JSUCC 
= 1 



= 2 



•a 



MCall LINK1 



ISOLV = 11 



D 
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SUBROUTINE: BAKSUB 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: Subroutine BAKSUB monitors the back- 
substitution process, that is, the computation of member distortions, 
member forces, support reactions, and applied joint loads from the in- 
duced joint displacements and the prescribed loading components . It 
also controls the printing of the requested output via subroutine ANSOUT e 

CALLS: ALOCAT, COMBLD, CLEAR, STATCK, DEFSUP, DEFINE, 
NEWADR, UPACW, AVECT, ANSOUT 

CALLED BY: MAIN LINK6 




Call 
DEFSUP 



9 



Clear KR arrays for 
unbalanced joint loads 
(statics check) 



gK 



No 



Do (K) S 

for all external load conditions 
JLX = 1,NLDS 




r Call NEWADR to geO 
.subscripts of arrays 



§ 



Subroutine BAKSUB 
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0- 




Do (b) 

for all members 
M = 1, MEXTN 




/Call AVECT to 

compute dis- 
tortion, forces 



©* 



/Call STATCK to 1 

compute unbal 
^anced forces 



Do (G) 

for all print requests 
1=1,4 



/^Call ANSOUT 
\to print answers, 




©- 



I Release arrays I 

"T — 

(Return J 
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SUBROUTINE: AVECT 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: Subroutine AVECT performs the actual 
backsubstitution process for all. members of one (independant) loading con- 
dition. From joint displacements induced member distortions are com- 
puted and added to KUV. From the induced member distortions the induced 
member-end forces are obtained by multiplication with the member stiff- 
ness KMKST. These induced member forces are added to KPMNS for the 
minus end and to KPPLS for the plus end. 

CALLS: TRAM AT 

CALLED BY: BAKSUB 



( Enter j 



Get addresses of displacements of 
end joints of member (in KPPRI for 
free joints and in KPDBP for sup- 
port joints) 



Call TRAMAT (JM, 1) translation 
matrix over member 



X 



ion ^ 



Distortion = -U*" + T • U' + in 
global coordinates 



T 



Rotate distortion to local coordinates 



Add distortion to KUV for current 
member 



Multiply induced distortion by stiff- 
ness KMKST to get induced minus - 
end force 



Add forces to KPMNS pool 



Translate induced force at minus 
end to plus end 



T 



Add plus -end force to KPPLS pool 
^Return) 



Subroutine GOMBLD 
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SUBROUTINE: COMBLD 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine COMBLD computes the final 
member distortions, joint displacements, member- end forces and unbal- 
anced joint loads for a dependent loading condition by combining the pre- 
viously computed answers for previously processed loading conditions 
according to the specified linear combination, 

CALLED BY: CLEAR, ALOCAT, NEWADR, RELEAS, UPADP 



f Enter J 



Clear arrays for member forces 
KPPLS, KPMNS, joint displace- 
ments KPPRI, KPDBP and mem- 
ber distortions KUV for this load- 
ing condition JLX 



G>^( 



DO ^) for all loading conditions > 
involved 1=1, NLS / 



FAC = factor for this 
loading I 



DO (g) for all membe: 

M = 1, MEXTN 



D 



Add to member forces (KPPLS, KPMNS) 
and member distortions (KUV) of loading 
JLX, FAC times the member force* and 
distortions of loading I, respectively 



DO (C) for all free joints V 
J = 1, NFJS / 

£_ 



Add FAC times joint displacements 
of loading I to those of loading JLX 




LOOP for all suppor 
joints J = 1, NDAT 



"t \ J > 



NDAT 



Add FAC times joint displacements 
of loading I to those of loading JLX 

3 



©- 



f Return J| 
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SUBROUTINE: NEWADR 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: Subroutine NEWADR recomputes ad- 
dresses of arrays used in BAKSUB and COMBLD after a memory re- 
organization or at the beginning of process. Arrays concerned are 
KPPLS, KPMNS, KPPRI, KPDBP, KUV, KR„ 

CALLED BY: BAKSUB, COMBLD 



f Enter) 



Compute addresses for 
KR, KUV, KPPLS, 
KPMNS, KPPRI 




Address for 
KPDBP 



No 



KPDBP is 
zero vector 



f Return") 



Subroutine STATCK 
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SUBROUTINE: STATCK 

TYPE: FORTRAN 

DESCRIPTION OF PROGRAM: STATCK sums all member-end forces at 
each joint (for each member incident to that joint) and stores the sum in 
array KR for the current loading condition. These sums represent the 
unbalanced joint loads as computed from the member-end forces. Mem- 
ber-end forces for each member are first rotated into joint coordinates. 

CALLS: TRAMAT 

CALLED BY: BAKSUB 



( Enter ) 



Do (Q for all members 
M = 1, MEXTN 




c 



Call TRAMAT fo 
rotation matrix 



D 



Rotate member forces 
for both ends to joint 
coordinates and add 
them to KR 



^Return) 
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SUBROUTINE: DEFSUP 

TYPE: FORTRAN 

ARGUMENTS: None 

DESCRIPTION OF PROGRAM: Subroutine DEFSUP computes the effect 
of the free joint displacements u on the support joint displacements u' 
at released support joints, if there are any free joints and released sup- 
ports. The total displacements at support joints are 

u = ftol^ 1 - AtRAu } 

where 0> and u reflect the effects of all types of loads. The part Q ^> ] 
of u is computed by FOMOD and stored in KPDBP. Subroutine DEFSUP 
computes ft ^ tKAul and subtracts from KPDBP. The subscripts for the 
product are (L, I)*(I, J)*(J). 



A t KA 



KPPRI 



CALLS: ALOCAT, ADRESS, RELEAS. 
CALLED BY: BAKSUB 



DIAGRAM USED FOR COMPUTING INDICES 



KPDBP 
1 • • -K- • -NLDS 



1 




















































































T 






I 














































































NDJ 













p 

KPDBP 
1- • • K» • • N LDS 

1 



A T KA 



KTEM 
1---K- 



I 



(I-NFJS-1V--NDAT 



KOFDG 
I ... 

































































1 


• M-. 


JF 








"&" 













































































NFJS 
+ 1 



(=NDAT*JF) 

Address: 

KPDBP+(K-1)NDJ+L 
K = 1,NLDS 
L=1,NDJ 















K2 


1--N-. 


JF 






1 
M 


%&? 


rt 








'// 


'M 


y/ 




JF 



















Address: 


Address: 


Address: 


KPDBP+ 


MEGAO+U-NFJS- 1)NDJ*JF 


K2+(N-1)JF+M 


(K-1)NDJ+L 


+(M-1)NDJ+L 


N=1,JF 




I=NFJS+1,NJ 


M=I,JF 




M=I,JF 






L=1,NDJ 





1 


* 1 
J N| 

-J- 




NFSJ 



(NFJS*JF=NSTV) 

Address: 

KTEM+(K- 1)NSTV+(J- 1) JF- 

K=l, NLDS 

J=l, NFJS 

N=l, JF 



Subroutine DEFSUP 
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d> 




Yes 



*© 



LCU = number o£ 
nonzero elements 



T th 



in I tn row of A L KA 



A^I* 



"\DO © J = 1, LCU y 



Pick element KOFDG 
in A*KA 



DO © for all loadings 
JLD = 1, NLDSI 

DO © L = 1 , ND J 



Multiply ft (L, I) by 
A t KA(I,J)*KPPRI(J) 
and subtract from 

KPDBP(L) 




^Return J 
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PROGRAM LISTING 
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CLA 
SUB 
FAP 



TOP 
Nt 



* DYNAMIC MEMORY ALLOCATOR, VERSION II I, 
« CHAIN VERSION*.. 13 SEPTEMBER 1963 

* REVISION OF DECEMBER 31,1963 

COUNT 800 

LBL ALOCHN 

ENTRY START 

ENTRY DEFINE 

ENTRY RELEAS 

ENTRY ALOCAT 

ENTRY DUMP 

ENTRY REORG 

START SXA IRlSt4 

SXA IR1S+1,1 

CLA» 2,4 

ADD ONE 

POX ,1 

STZ U*l,l 

TIX ♦-1,1,1 

CLA *-2 

STA TCP 

CLA* 1,4 

STO TN 

CLS* 2,4 

ARS 18 

ADD TOP 

STO Nl 

CLA 99 

ADD ONE 

ARS 18 

STA NT 

STA 99 

SSM 

ADD Nl 

ALS 18 

STO* 3,4 

CALL FILES,0NE,TN,FN,0NE,T0P 

CLA Nl 

STO NL 

IRIS AXT **,4 

AXT **,1 

TRA 4,4 

REORG SXA REORGF,! 

SXA REORGF+1,4 

STZ NONEED 

STZ NPERF 

CLA Nl 

STA ADD1 

STA A002 

ADD1 LXA **,1 

TXL NBR,1,0 

ADD2 CAL* ** 

ADD =1 

STA N 

CLA* ADD2 

TPL CONTU 

ALS 1 

PBT 



9-12-63 LOGCHER 



INITIATE FILE TAPE 
INITIATE MEMORY ALLOCATION NO. 



MEMORY REORGANIZATION ROUTINE 



DETERMINE AVAILABLE MEMORY 



SIZE OF ARRAY PLUS MEMORY WORD 
MEMORY WORD (FIRST WORD IN ARRAY 
NEEDED 



ALOC0472 
ALGC0473 
ALOCOOOO 
ALOC0001 



0004 
ALOC0004 
ALOC0005 
ALOC0006 
ALOCC0G7 
ALOCC008 
AL0C0009 
ALOC0010 
ALOC0011 
ALOCC012 

AL0CG013 
ALOC0016 
ALOCC017 
00018 
00019 
ALOC0020 
ALOCC021 
ALOC0022 
ALOC0023 
AL0CC024 
ALOCC025 
ALOC0026 
ALOC0027 
ALOC0028 
0C029 
ALOC0030 
ALOCG031 
AL0CCG32 
ALOCC033 
AL0CG034 
AL0C0035 
ALOCC036 
ALOCC037 
ALOCC038 
AL0CG039 
ALOCC040 
ALOCG041 
AL0CC042 
AL0C0043 
ALOCC044 
ALOCC045 
ALOC0046 
AL0CG047 
ALOCC048 
ALOCC049 
ALOCC050 
AL0CG051 
AL0CC052 
)AL0CC053 
ALOCC054 
ALOC0055 
AL0CC056 
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TRA 


ORDN 


ORDINARY ARRAY 


AL0C0057 




CLA 


N 


PERFERRED ARRAY 


AL0C0058 




ADO 


NPERF 




ALOC0059 




STO 


NPERF 




ALOCC060 




TRA 


CONTU 




AL0C0061 


ORON 


CLA 


N 




AL0C0062 




ADD 


NONEED 




ALOCC063 




STC 


NGNEED 




ALOCC064 


CONTU 


CLA 


AODl 




ALOC0065 




ANA 


=0000000077777 




ALOC0066 




SUB 


N 




AL0C0067 




STA 


ADD1 




ALOCC068 




STA 


ADD2 




AL0C0069 




CAS 


NL 




ALOC0070 




TRA 


ADDl 


TEST ANOTHER ARRAY 


ALOC0071 




CLA 


NL 




ALOCC072 




ADD 


NCNEED 




ALOC0073 




SU8 


NT 




AL0C0074 




SUB 


NREQ 




ALOCC075 




SUB 


= 2 








TMI 


PERFT 




AL0C0076 




CLA 


SAV 




AL0C0077 




STA 


SAV1 




AL0CC078 


DUMPR 


CLA 


Nl 


DUMP AND COMPACT USING ORDINARY 


DALOCC079 




STO 


NNL 




ALOCC080 




STO 


K 




ALOC0081 




STA 


ADD3 




AL0C0082 




STA 


ADDA 




AL0CC083 




STA 


ADD5 




ALOC0084 




STA 


ADD6 




ALOC0085 




STA 


ADD 7 








STA 


ERASE 




AL0CC086 




CLA* 


ADD3 




AL0CC087 


SAV 


TPL 


MOVR 


NEEOED, MOVE UP IN MEMORY 


ALOC0088 




STA 


N 




AL0C0089 




NZT 


N 




AL0CC090 




TRA 


NBRDP 


NO SACK REFERENCE FOR DATA,PROCEDALOCC091 




ALS 


1 




AL0C0092 




PBT 






ALOC0093 




TRA 


*+2 




AL0CC094 


SAV1 


TRA 


MOVR 


MOVE PERFERRED ARRAYS 


ALOCC095 




ALS 


1 




AL0C0096 




PBT 






AL0CC097 




TRA 


ERASE 




AL0CC098 


ADD3 


CLA» 


*• 




ALOC0100 




ANA 


=0000000400000 




AL0C0101 




TNZ 


DPSLF 




AL0C0102 




XEC 


ADD3 




ALOCC103 




STA 


N 




AL0C01C4 




ANA 


=0000000777777 








SSM 






AL0C0105 


ADD4 


STO» 


*♦ 




ALOCC106 




TSX 


WFT,4 


WRITE FILE CONSISTING OF ARRAY 


ALOC0107 




CLA 


FN 


NEXT FILE NUMBER ASSIGNED 


AL0C0108 


ADD5 


ORS* 


• * 






FNNUM 


CLA 


K 




AL0CC110 




SUB 


N 




ALOCOlll 




SUB 


= 1 




ALOC0112 


ENDTS 


CAS 


NL 




AL0C0113 




TRA 


DUMPR+2 




ALOC0114 
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NOP 






CALL 


FILES, FIVE, ONE 




CLA 


NNL 




STO 


NL 


REORGF 


AXT 


**,1 




AXT 


**,4 




TRA 


1,4 


FIVE 


OCT 


5000000 


WFT 


SXA 


WTT, 4 




LXA 


N,4 




SXO 


NC0UNT,4 




CLA 


K 




SUB 


= 1 




STA 


STARR 




TSX 


$FILES,4 




TSX 


TWO 




TSX 


TN 




TSX 


FN 




TSX 


NCGUNT 


STARR 


TSX 


** 


WTT 


AXT 


**,4 




TRA 


1,4 


NBR 


CAL* 


ADD2 




ARS 


18 




AOD 


= 1 




STA 


N 




TRA 


ORDN 


PERFT 


ADD 


NPERF 




TMI 


*+4 




CLA 


SAV1-1 




STA 


SAVl 




TRA 


DUMPR 




CLA 


1,4 




PAX 


.4 




ZET 


STORE 




TSX 


STER,1 




CLA 


ONE 




STO 


INORM 




TSX 


$CHAIN,4 




TSX 


ONE 




TSX 


FOUR 


NBRDP 


CLA* 


ADD3 




ARS 


18 




STA 


N 




TRA 


FNNUM 


ERASE 


CAL* 


• » 




ANA 


=0000000777777 




SSM 






XEC 


ADD4 




STA 


N 




ANA 


=0000000400000 




TNZ 


ERSLBR 




TRA 


FNNUM 


ERSLBR 


LXA 


N,l 


AD06 


CLA 


**,1 




TMI 


♦ ♦5 




POX 


t4 




ALS 


18 




SSM 






STO 


U + 1,4 



AL0CC115 
AL0C0116 
ALOC0117 
ALOC0118 
ALOC0119 

ALOC0120 
ALOC0121 
ALOC0122 
AL0C0123 
AL0C0124 
ALOC0125 
ALOC0126 
AL0C0127 
AL0CC128 
AL0CC129 
AL0CC130 
AL0C0131 
AL0C0132 
ALOCC133 
AL0C0134 
AL0C0135 
ALOC0136 
ALOC0137 
ALOC0138 
AL0C0139 
AL0C0140 
ALOC0141 
ALGC0142 
AL0C0143 
ALOC0144 
AL0CG145 
ALOC0146 
ALCCC147 
0149 
0150 
0151 
0152 
0153 
ALOC0149 
ALOC0150 
AL0C0151 
AL0C0152 
AL0CC153 

AL0CG155 
ALOC0156 
AL0C0157 
AL0CC158 
AL0C0159 
ALOC0160 
ALOC0161 
ALOC0162 
AL0C0163 
AL0C0164 
ALOC0165 
ALOC0166 
AL0C0167 
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TIX 


ERSLBR+1,1,1 




TRA 


FNNUM 


DPSLF 


XEC 


ADD3 




ALS 


18 




STD 


LP 




AXT 


Itl 


LP 


TXH 


LGOP+lt lt«» 




CLA* 


ADD6 




TMI 


LOOP 




PDX 


t4 




STA 


N 




SXA 


K,4 




ANA 


=OC0OGOO10OO0O 




TZE 


ERSL 




CLA 


TOP 




SUB 


K 




STO 


K 




CLA* 


ADD6 




ANA 


=0000000777777 




SSM 






STO* 


ADD6 




TSX 


WFT,4 




CLA 


FN 




ORS* 


AD06 




CLA 


N 




ALS 


18 




SSW 






STO» 


K 


LOOP 


TXI 


LP, 1,1 




CLA 


ADD3 




STA 


K 




TRA 


A0D3+3 


ERSL 


CLA 


N 




ALS 


18 




SSM 






STO 


U+1,4 




CAL* 


ADD6 




ANA 


=0000000777777 




SS* 






STO* 


A0D6 




TRA 


LOOP 


MOVR 


CLA 


TOP 




SUB 


NNL 




ALS 


18 


AD07 


STD* 


• • 




XEC 


AC03 




STA 


N 


MOV 


LXA 


N,l 




SXD 


* + 9,l 




AXT 


0,1 




CLA 


K 




STA 


* + 7 




CLA 


NNL 




STA 


* + 6 




CAS 


K 




TRA 


♦ ♦2 




TRA 


MOVCT 




TXH 


*+4» 1,** 




CLA 


**,1 




STO 


**,! 



AL0CC168 
AL0C0169 
AL0C0170 



AL0C0172 
AL0C0173 
AL0CC17A 
AL0C0175 
AL0C0176 
AL0CC177 
AL0CC178 
AL0C0179 
AL0CC180 
AL0CC181 
ALOC0182 

ALOC0183 

ALOC0185 
ALOC0186 

AL0CC188 
ALOC0189 
ALOC0190 
ALOC0191 
ALOC0192 
ALOC0193 
AL0C0194 
AL0C0195 
AL0C0196 
ALOC0197 
AL0C0198 
AL0C0199 
AL0CC2C0 

AL0C0202 
ALOC0203 
AL0CC204 
ALOCC205 
AL0C0206 
AL0CC207 

AL0C0209 
AL0C021G 
AL0C0211 

C0212 
ALOC0213 
AL0C0214 

00215 
AL0CC216 

GC217 



AL0CC218 
AL0C0219 
ALOCC220 
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TXI 


*-3,i,l 


CLA 


NNL 


STA 


UPDSL 


STA 


*+i 


CLA* 


• • 


ANA 


=0000000400000 


TNZ 


UPDSL 


MQVCT CLA 


NNL 


SUB 


N 


SUB 


= 1 


STO 


NNL 


TRA 


FNNUM 


UPDSL CAL* 


»* 


PAX 


tl 


CLA 


NNL 


STA 


*+l 


LASCW CLA 


•••1 


TMI 


*+6 


PDX 


t4 


PXA 


,1 


SSM 




ADD 


NNL 


STA 


U+1,4 


TIX 


LASCW,1,1 


TRA 


MOVCT 


PTERR CLA 


lt4 1 


STA 


* + 8 


SXA 


♦ ♦5,4 


TSX 


$PRER2,4 i 


TSX 


=017000000 i 


TSX 


ONE * 
i 


TSX 


i 
• ♦3 


AXT 


**,4 


TRA 


CHA2-3 


PZE 


% 


lLOCAT SXA 


CHA2-l,l ( 


STZ 


NREQ ( 


CLA 


= 2 i 


STA 


CHA2 

1 


CAL* 


lt4 1 


STA 


NREQ 1 


ANA 


=0000000400000 


TNZ 


SLCWAL J 


CLA* 


1*4 1 


TZE 


PTERR ] 


CHA1 TPL 


CLREL i 



CLA 



ALOC0221 



ALOC0223 
ALOC0224 
AL0CC225 
AL0C0226 
ALOC0227 
ALOC0228 
ALOC0231 

ALOC0233 

ALOC0235 
ALOC0236 
ALOC0237 
ALOC0238 
AL0CC239 
ALGC0240 

ALOC0241 
AL0CC242 
ALOC0243 



NL 



STO 


K 


SUB 


NREQ 


SUB 


= 1 


CAS 


NT 


TRA 


OKFILE 



FIRST ARGUMENT OF CALLING IN AC 

UNDEFINED CODEWORD ADDRESS 

CALL ERROR PRINTING ROUTINE 

ERROR MESSAGE NUMBER 

ARGUMENT NECESSARY FOR PRER2 BUT NOT USED 

HERE 



TRANSFER TO SEQUENCE FOR RETURN FROM ALOCAT 

SPACE FOR CODEWROD ADDRESS 

C(IR1) STORED IN RETURNING SEQUENCE AL0C0244 

CLEAR THIS LOCATION AL0C0245 

PLACE A 2 IN THE RETURNING SEQUENCE TO ALOC0246 

INDICATE RETURN FROM ALLOCATION TO 
LEVEL ARRAY 

PLACE THE CODEWORD ITSELF IN THE AC ALOC0248 

THE SIZE OF THE ARRAY IS STORED HERE ALOC0249 

TEST BIT 18 TO DETERMINE IF AN ARRAY OF ALOC0250 
CODEWORDS OR OF DATA 

SINCE AC NOT ZERO, IT IS A SECOND LEVEL AL0C0251 
ARRAY. GO TO STATEMTN SLCWAL 

PLACE CODEWORD IN THE AC ALOC0252 

IF CODEWRD IS ZERO, TRANSFER TO ERROR ALOC0253 

IS THE CODEWORD POSITIVE OR NEGATIVE AL0C0254 
POSITIVE MEANS THE ARRAY IS IN CORE 

CODEWORD IS NEGATIVE AND THE ARRAY IS ALOC0255 
ON TAPE OR BEING ALOCATED FOR THE FIRST TIM 
E. PLACE THE LOCATION OF POOL IN THE AC 
START OF THE POOL IN THE AC 

STORE THIS VALUE IN LOCATION CALLED K AL0C0256 

SUBTRACT THE AMOUNT PLUS ONE OF THE SPACE AL0C0257 

REQUIRED TO DETERMINE A NEW START OF POOL AL0C0258 

COMPARE WITH LOCATION OF 80TT0M OF POOL ALOC0259 

MEMORY AVAILABLE ALOC0260 
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NOP 




SXA 


»+2,4 


TSX 


RE0RG,4 


AXT 


•♦,4 


ZET 


STORE 



TSX 



ALQC0261 
ALOCG262 
ALOC0263 
AL0C0264 



STER,1 





TRA 


ALOCAT+4 


OKFILE 


STO 


NL 




CLA* 


1,4 




ANA 


=01777770 




STO 


FILE 




TZE 


OPEN 




CAL* 


1,4 




ANA 


=02000000; 




TNZ 


LCONT 




CLA 


THREE 




STO 


MCNT 


INALC 


CLA 


TOP 




SUB 


K 




ALS 


18 




STD* 


1,4 




CLA 


lt4 




ANA 


=00000000 


* 


SLW* 


K 


* 


CLA* 


1,4 




ANA 


=00777777 




SLW* 


lt4 




SXA 


CHA2-4,4 




LXA 


NREG,4 




SXD 


NC0UNT,4 




CLA 


K 




SUB 


= 1 




STA 


*+6 


* 


TSX 


$FILES,4 


♦ 


TSX 


MCNT 




TSX 


TN 




TSX 


FILE 




TSX 


NCOUNT 




TSX 


• • 




AXT 


** f 4 




ZET 


STORE 




TSX 


STER, 1 




AXT 


**,1 


CHA2 


TRA 


**,4 


LCONT 


CLA 


TWO 




ADO 


TWO 




TRA 


INALC-1 


OPEN 


CLA 


TOP 




SUB 


K 




ALS 


18 




STO* 


lt4 



THERE IS NO SPACE AND A REORGANIZATION OF 
MEMORY IS NECESSARY. 

HAS THE CALLING SEQUENCE BEEN ALTERED FOR 

SECOND LEVEL ARRAYS 

REUQIRED IF A SECOND LEVEL ARRAY EXISTS 

IT HAS THE TRANSFER RESTORES THE CALLING 

SEQUENCE AND PLACES ZEROS IN LOCATION STOR 

ALOCATE THE SPACE ALOC0265 

STORE THE NEW LOCATION OF THE START OF POOLALOC0266 

PLACE CODEWORD IN THE AC ALOC0267 

00000 HAS THE CODEWORD BEEN ALOCATED BEFORE 

YES, STORE THE DECREMENT IN LOCATION FILE AL0CC2 

AL0C0269 
PLACE THE CODEWORD IN THE AC 

00000 HAS THE ARRAY BEEN REDEFINED WHILE ON TAPE 

NO OPERATION NUMBER FOR NO SIZE CHANGE 



COMPUTE SUBSCRIPT OF U TO START OF ARRAY 
AND PLACE IN CODEWORD DECREMENT 



AL0CC271 
ALOC0272 
AL0C0273 
ALOC0274 

PLACE THE LOCATION OF THE CODEWORD IN THEACALOC0275 
77777 ERASE ALL BUT ADDRESS ALOC0276 

STORE LOGICALLY AT THE HEAD OF THE ARRAY AL0C0277 

AS A BACK REFERENCE 

E FIRST WORD OF THE ALLOCATED ARRAY 



SET S AND 2 BITS OF CODEWORD TO ZERO 



AL0CC278 



77777 



AL0C0280 
ALOC0281 
ALOC0282 
AL0C0283 



STORE CUR4) 

PLACE IN IR4 THE SIZE OF THE ARRAY 

CUR4) PLACED IN DECREMENT OF NCOUNT 

LOCATION OF FIRST WORD OF THE ARRAY PLACED AL0C0284 

IN THE AC 

SUBTRACT ONE FROM THE ADRESS AL0CC285 

STORE THIS SIX LOCATION FROM HERE AL0C0286 

GO TO SUBROUTINE WHICH HANDLES TRANSMISSIONALOC0287 

OF INFORMATION TO AND FROM TAPE 

THE FOLLOWING ARE THE ARGUMENTS OF THE SUB. 

INDICATES WHICH OPERATION TO BE DONE ALOC0288 

SCRATCH TAPE NUMBER ALOC0289 

TAPE FILE NUMBER ALOC029C 

SIZE OF THE ARRAY OR EXPECTED SIZE AL0CG291 

LOCATION OF FIRST WORD OF ARRAY ALOC0292 

RESTORATION OF INDEX REGISTER 4 ALOC0293 

HAS THE CODEWORD BEEN RESTORED AL0C0294 

NO RESTORE IT ALOC0295 

YES RESTOREO. NOW RESTORE IR1 AL0C0296 

RESTORE IR4 AND RETURN TO CALLING SUBROUTINALOC0297 

A FOUR FOR OPERATION NUMBER FOR FILES 

IMPLYING POSSIBLE SIZE CHANGE 

GO TO THAT WHICH PRECEDES CALLIN G OF FILES 

PLACE 77462 IN THE AC (ARRAY IN CORE) ALOC0298 

SUBTRACT ENTERING START OF POOL AL0CC299 

SHIFT ADORESS INTO DECREMENT AL0C0300 

STORE IN DECREMENT OF CODEWORD ALOC0301 
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CAL* 


lt4 




STO« 


lt4 




CLA 


1,4 




ANA 


=000000007 




SLW* 


K 




N2T 


NREQ 




TRA 


CHA2-3 




LXA 


NR£Q,1 




CLA 


K 


• 








STA 


• ♦1 




STZ 


**» 1 




TIX 


*-l,l,l 




TRA 


CHA2-3 


SLCWAL 

• 


CLA* 


2,4 


• 


T26 


CHAR 




SXA 


SVCNT-1,4 




CLA« 


lt4 




TNI 


*4-4 




PDX 


,1 




CLA 


U+1,1 




TPL 


SVCNT 




CLA 


lt4 




STO 


*+3 




LXA 


CHA2-1,1 




TSX 


ALOCAT,4 




TSX 


• » 




TSX 


ZERO 




AXT 


• *,4 


SVCNT 


TSX 


SSLAD.l 


CHAR 


CLA 


= 3 




STA 


CHA2 




CLA* 


1,4 




STA 


NREQ 




TMI 


CHAl+1 




TZE 


PTERR 


CLREL 


PDX 


,1 




CLA 


U+l,l 




SSP 






STO 


U+1,1 




TRA 


CHA2-3 


DEFINE 


CLA 


6,4 




ARS 


15 




LAS 


=074000 




TRA 


♦♦2 




TRA 


SECCW 




CLA 


»6 




STA 


T 




CLA* 


2,4 




ARS 


15 




ADD* 


5,4 




ARS 


1 



MAKE SIGN POSITIVE TO INDICATE NOT RELEASE0AL0C0302 

AL0C0303 
ALOC0304 
ALOC0305 
ALOC0306 



PLACE ADDRESS OF CODEWORD IN AC 
7777 ERASE ALL BUT ADDRESS 

STORE LOGICALLY IN THE FIRST WORD OF ALLOCA 

TED ARRAY 

IS THE ARRAY OF ZERO LENGTH 

YES GO TO RETURN SEQUENCE 

NO. PLACE SIZE OF ARRAY IN IR1 

PLACE THE LOCATION OF THE FIRST WORD OF THE 

ARRAY IN THE AC 

ZERO THE ARRAY OF LENGTH GIVEN BY CtNREQ) 



ALOCG307 
ALOC0308 
AL0C03G9 
AL0C03L0 

ALOC03H 
ALOC0312 
ALOC0313 
ALOC0314 
:AL0CG315 



GO TO RETURNING SEQUENCE 

THIS IS A SECOND LEVEL ARRAY9 PLACE IN THE^ 

AC THE SECOND WORD OF THE CALLING SEQUENCE 

THIS NUMBER INDICATES WHICH ARRAY CONNECTED 

WITH THE CODEWORD IS BEING ALLOCATED 

IF IT IS ZERO (THE CODEWORD ARAY ), TRANSFER ALOC0316 



ALOC0317 



PLACE CODEWORD IN THE AC 
TRANSFER IF CCACJ ARE NEGATIVE 
DECREMENT OF AC INTO IR1 
PLACE FIRST WORD OF ARRAY IN AC 



PLACE ADRESS OF CODEWORD IN AC ALOC0324 

STORE IN IN THE CALLING SEQUENCE FOLLOWING ALOC0325 



CALL ALOCAT TO ALLOCATE THE ARRAY 



AL0C0326 



LOCATION OF CODEWORD ALOC0327 

PLACE A ZERO AS SECOND WORD OF CALLING SEQ ALOC0328 
RESTORE IR4 ALOC0329 

STORE CODEWORD AND PLACE A NEW VALUE IN ITSALOC0330 
LOCATION 

AL0CG331 

PLACE THE CODEWORD IN THE AC AL0C0333 

STORE THE ADDRESS PORTION WHICH SHOULD BE TAL0CC334 

HE SIZE OF THE ARRAY IN LOCATION NREQ 

A NEGATIVE SIGN MENAS FILE ON TAPE. TRNSFERAL0CC335 

IF CODEWORD IS ZERO, TRANSFER TO ERROR AL0C0336 

CCAC) NON-ZERO AND ARRAY IS IN CORE, PLACE AL0C0337 

DECREMENT OF AC IN IR1 

CLEAR AC AND PLACE IN IT THE FIRST WORD OF ALOC0338 

THE ARRAY 

SET THE SIGN POSITIVE TO 



STORE IN THE FIRST WORD OF THE 
GO TO RETURNING SEQUENCE 



INDICATE IN CORE 
ARRAY 



AL0C0339 
ALOCC340 
ALOC0341 
AL0C0342 
00343 
00344 
ALOC0345 
AL0C0346 
AL0CC347 

AL0C0349 

ALOC0350 
ALOC0351 
AL0CC352 
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ADD* 


4,4 




ARS 


1 




ADD* 


3, A 


QNTA 


ARS 
SSM 


1 




STG 


TEMP 




CLA* 


1,4 




ANA 


=0177777000000 




TZE 


ENT 




CLA* 


1,4 




TPL 


TESTR 




STD 


TEMP 




STP 


TEMP 




CAL 


=0600000000000 




ORS 


TEMP 


£NT 


CAL 


TEMP 




SLW* 


1,4 


ENDR 


SXA 


* + 3,l 




ZET 


STORE 




TSX 


STER,1 




AXT 


»*tl 




TRA 


**,4 


SECCW 


CLA* 


2,4 




TZE 


FRSTCW 




SXA 


* + 2,l 




TSX 


SSLADtl 




AXT 


**, 1 


RSTCW 


CLA 


=7 




STA 


T 




CLA* 


3,4 




ARS 


15 




ADD* 


6,4 




ARS 


1 




ADD* 


5,4 




ARS 


1 




ADD* 


4,4 




TRA 


CCNTA 


LGRR 


PZE 




LGR 


PZE 




SAM 


CLA* 


1,4 




SXA 


SAMR,4 




SXA 


SAMR+1,1 




ANA 


=0000000400000 




TZE 


SAMZ 




CLA* 


1,4 




PDX 


,4 




PAX 


>1 




PXA 


t4 




SSM 






ADD 


TOP 




STA 


* + l 




CLA 


**,1 




TMI 


♦ ♦5 




PDX 


,4 




ALS 


18 




SSM 






STO 


U+1,4 




TIX 


*-6,l,l 


SAMZ 


LXA 


SAMR,4 




CLA 


1,4 



AL0C0353 
ALOC0354 
ALOC0355 

ALOC0360 
AL0C0361 
AL0CC362 



ALOC0367 
AL0C0368 
AL0C0369 
AL0C0370 
AL0C0371 

ALOC0374 
AL0C0375 
AL0C0376 
AL0CC377 
AL0CC378 
ALGC0379 

AL0C0381 
AL0CC382 
ALOC0383 
AL0C0384 
AL0C0385 
ALOC0386 
ALOC0387 
AL0C0390 



AL0C0392 
ALOC0393 
AL0C0394 
00395 
ALOC0396 
AL0C0397 
ALOC0398 
ALOC0399 
AL0C04C0 
ALOC0401 
ALOCC402 
ALOC0403 
AL0C0404 
ALOC0405 
AL0CC406 
ALOC0407 
ALOC0408 
AL0C0409 
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STA 


* + 2 


TSX 


$CLEAR,4 


TSX 


** 


SAMR AXT 


*« f 4 


AXT 


**tl 


TRA 


TESFR+4 


TESTR ERA 


TEMP 


ANA 


=0000000400000 


STO 


LGRR 


TNZ 


SAM 


CLA* 


1,4 


ANA 


=0000000077777 


SLW 


NOLO 


CAL 


TEMP 


ANA 


=0000000077777 


STO 


NNEV* 


SUB 


NOLD 


STO 


L6R 


TNZ 


MOVER 


USEN CAL* 


if4 


ANA 


=0077777000000 


ACL 


TEMP 


STO* 


1,4 


TRA 


ENDR 


HOVER SXA 


USNEW-2, 1 


CAL* 


1,4 


ARS 


18 


ANA 


=0000000077777 


SSM 




ADD 


TOP 


SUB 


NOLO 


SUB 


= 1 


SUB 


NL 


TZE 


NOMOV 


CLA 


NL 


SUB 


NT 


SUB 


NNEfc 


TMI 


RECRGI 


CLA 


LGR 


TMI 


USNEW 


PAX 


tl 


CLA 


NL 


SUB 


NOLO 


STA 


*+l 


STZ 


**,! 


TIX 


•-ltltl 


LXA 


NOLD.l 


MVR CAL* 


lf4 


ARS 


18 


ANA 


=0000000077777 


SSM 




ADD 


TCP 


STA 


* + 7 


STA 


* + 3 


CLA 


NL 


STA 


* + 2 


CLA 


**t 1 


STO 


**,1 


TIX 


*-2, 1,1 


CLA 


• » 



ALOCQ410 
AL0CG411 
0C412 
AL0C0413 
ALOC0414 

AL0CC415 
ALOC0416 
AL0C0417 
ALOC0419 
AL0CC420 
AL0C0421 
ALOC0422 
AL0C0423 

AL0C0424 
AL0C0425 
ALOC0426 
AL0CG427 
AL0C0428 
AL0C0429 
AL0CC430 
ALOC0431 
AL0C0432 
ALOC0433 
AL0CC434 
AL0CC435 
AL0C0436 
AL0CC437 
AL0CC438 
ALOC0439 
AL0CC440 
ALOC0441 
AL0CC442 
AL0CC443 

AL0CC446 
AL0CC447 
AL0CC448 
AL0C0449 
AL0CC450 
AL0CC451 
AL0CC452 
AL0C0453 
AL0C0454 
ALOC0455 
AL0C0456 
AL0C0457 
AL0CC458 
ALOC0459 
AL0CC460 
AL0C0461 
AL0CG462 
ALOC0463 
ALOC0464 
AL0C0465 
AL0C0466 
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STO* 


NL 


CLA* 


1.4 


STZ* 


*-3 


ALS 


18 


SSM 




STO* 


*-6 


ALS 


18 


STD* 


1.4 


CLA 


LGRR 


TNZ 


CHNL 


CLA* 


lt4 


ANA 


=G4CCC0Q 


TZE 


CHNL 


NZT 


NOLO 


TRA 


CHNL 


SXA 


CHNL-1,4 


LXA 


NCLD.l 


CLA 


NL 


STA 


* + l 


CLA 


**,1 


TMI 


• ♦6 


PDX 


t4 


PXA 


.1 


SSM 




ADD 


NL 


STA 


U + 1,4 


TIX 


— 7,1,1 


AXT 


**,4 


CHNL CLA 


NL 


SUB 


NNEW 


SUB 


= 1 


STO 


NL 


AXT 


**.l 


TRA 


USEN 


USNEW CAL* 


lt4 


ANA 


=04CCCOO 


TZE 


* + 2 


TSX 


DTRYBR,1 


LXA 


NNEW.l 


TRA 


MVR 


REORGI SXA 


REIR, 4 


CLA 


NNEW 


STO 


NREC 


TSX 


REORG.4 


REIR AXT 


**,4 


CLA 


STORE 


TZE 


* + 3 


TSX 


STER,i 


TSX 


SSLAD,i 


CLA* 


lt4 


TPL 


MVR-10 


TRA 


ENDR-6 


NGMOV CAL* 


1.4 


ANA 


=0400000 


TZE 


*+4 


CLA 


LGR 


TPL 


* + 2 


TSX 


DTRYBR,1 


CLA 


NL 


ADD 


= 1 



AL0CC467 
AL0C0468 

AL0CC469 
AL0CC470 
AL0C0471 
ALOC0474 
AL0CC475 



AL0C0476 
AL0C0477 
AL0CC478 
AL0C0479 
AL0CC480 
ALGC0481 



AL0CC482 
AL0CC483 
AL0C0484 
ALOC0485 
ALOC0486 
AL0CC487 
AL0CC488 



ALOC0489 
AL0CC490 



AL0CC492 
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STA 


RELEAS-3 


SUB 


= 1 


SUB 


NNEW 


ADD 


NOLO 


CAS 


NT 


NOP 




TRA 


ZENM 


CLA 


NNEW 


SUB 


NOLO 


STO 


NREQ 


SXA 


«*2,4 


TSX 


RE0RG.4 


AXT 


*»t4 


CLA 


STORE 


TZE 


*+3 


TSX 


STER,1 


TSX 


SSLAD,! 


CLA* 


It4 


TNI 


ENT-4 


TRA 


N0M0V+6 


DTRYBR SXA 


DTLOP+1,1 


SXA 


DTLOP+2,4 


CLA« 


1»4 


PAX 


,1 


SXD 


DTLP,1 


PDX 


t4 


PXA 


t4 


SSM 




ADD 


TOP 


STA 


DTLP+1 


CLA 


NNEW 


ADO 


= 1 


PAX 


tl 


DTLP TXH 


DTLOP+l,l,»« 


CLA 


• ♦,1 


TMI 


DTLOP 


POX 


t4 


STZ 


U*l,4 


ALS 


18 


SSM 




STO 


U*l,4 


DTLOP TXI 


DTLP,l,i 


AXT 


»*, 1 


AXT 


• »»4 


TRA 


ltl 


ZENM STA 


NL 


CLA 


NNEK 


SUB 


NOLO 


TMI 


USEN 


PAX 


tl 


STZ 


»«, 1 


TIX 


•-ltlfl 


TRA 


USEN 


RELEAS SXA 


IR11.1 


CAL» 


1,4 


ANA 


=0000000400000 


TNZ 


SECL 


CLA 


= 3 


STA 


A34 


CLA 


=4 



CALL RELEAS(NAME) OR 
CALL RELEAS(NAME,U,V) OR 
CALL RELEAS(SLNAME f J) OR 
CALL RELEAS(SLNAME,J,U,V) 



AL0CC493 
AL0C0494 
AL0C0495 
ALOC0496 
AL0CG497 
AL0C0498 
AL0C0499 
ALOCC5C0 
ALOC0501 
AL0C0502 
AL0C0503 



AL0C05C4 



AL0CC5C5 



AL0C0506 
AL0CC5C7 
ALOCC508 
AL0C0509 
AL0C0510 
AL0CC511 
AL0CC512 
AL0C0513 
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STA 


SXRT-1 




CLA 


= 2 




STA 


A23 




STA 


A24 




STA 


ONEAR 


A23 


CLA 


**,4 




ARS 


15 




LAS 


=074000 




TRA 


ONEAR 




TRA 


* + 2 




TRA 


ONEAR 




CLA* 


lt4 




TPL 


A24 




XEC 


SXRT-1 




XEC 


SXRT 




TRA 


IRU-2 


A24 


CLA» 


**, 4 




ALS 


1 


A 34 


ADD* 


**t 4 




ARS 


3 




STO 


NNEW 




CAL* 


1,4 




ANA 


=0777777477777 




ACL 


NNEW 




SLW* 


lt4 




ALS 


18 




AXT 


**»1 


SXRT 


SXA 
SSM 


RETN,1 




STO 


NNEW 




CAL* 


lt4 




PDX 


tl 




CAL 


NNEW 




STP 


U*ltl 




ZET 


STORE 




TSX 


STER,1 


IRll 


AXT 


•«ti 


RETN 


TRA 


**,4 


ONEAR 


AXT 


**tl 




CLA* 


lt4 




TMI 


A24-2 




ALS 


18 




TRA 


SXRT 


SECL 


CLS* 


2,4 




JIB 


FIRSTL 




TSX 


SSLAD,1 


IRSTL 


CLA 


=4 




STA 


A34 




CLA 


= 5 




STA 


SXRT-1 




CLA 


= 3 




TRA 


A23-3 


DUMP 


CLA 


=2 




STA 


RETDU 




CLA 


lt4 




STA 


CWLOC 




CLA* 


lt4 




TPL 


CONTB 




CLA 


lt4 




STA 


* + 9 



ALOC0514 
AL0C0515 
ALOC0516 
AL0C0517 
ALOC0518 
AL0C0519 
00520 
00521 
ALOC0522 
ALOC0523 
AL0C0524 
AL0C0525 
AL0C0526 
ALGC0527 
ALOC0528 
AL0C0529 
AL0CC530 
AL0C0531 
AL0C0532 
ALOC0533 
AL0CG534 
ALOC0535 
AL0C0536 
AL0C0537 
AL0CC538 
ALOC0539 
ALOC0540 
AL0C0541 
ALOC0542 
ALOC0543 
ALOC0544 
AL0C0545 
ALOC0546 
ALOC0547 
AL0C0548 
ALOC0549 
ALOCC550 
ALOC0551 
ALOC0552 
ALOC0553 
AL0CC554 
ALOC0555 
AL0C0536 
ALOC0557 
ALOC0558 
AL0C0559 
ALOC0560 
AL0C0561 
AL0CC562 
ALOC0563 
AL0C0564 
ALOC0565 
AL0CC566 
AL0CC567 
AL0C0568 
ALOC0569 
ALOC0570 
AL0CC571 
AL0C0572 
ALOC0573 
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CLA 


2,4 




STA 


*+5 




STA 


* + 7 




SXA 


♦♦7,4 




TSX 


ALCCAT,4 


CWLOC 


tsx 


*• 




NOP 


• * 




TSX 


RELEAS,4 




TSX 


*• 




NOP 


#• 




AXT 


**,4 




CLA* 


CWLCC 


CONTB 


ANA 


=0000000400000 




TNZ 


SECLD 




ST2 


TEMP 




CLA» 


CWLOC 




STD 


TEMP 




ALS 


18 




STD 


NCOUNT 




SXA 


RETDU-1,4 




CALL 


DUMPER, TEMP, NCI 




AXT 


**,4 


RETOU 


TRA 


**,4 


SECLO 


CLA 


= 3 




STA 


RETDU 




CLA* 


2,4 




TZE 


CONTB+2 




CAL* 


lt4 




ANA 


=0077777000000 




ADD* 


2,4 




ARS 


18 




SSM 






ADD 


TOP 




STA 


CWLOC 




CLA* 


CWLOC 




TPL 


CGNTB+2 




CLA 


CWLCC 




TRA 


DUMP+7 


SSLAD 


CLA 


1,4 




STO 


STORE 




CAL* 


1,4 




ANA 


=0077777000000 




ADD* 


2,4 




ANA 


=0077777000000 




ARS 


18 




SSM 






ADD 


TOP 




STA 


1,4 




TRA 


1.1 


STER 


CLA 


STORE 




STO 


1,4 




STZ 


STORE 




TRA 


1,1 


STORE 


PZE 




FN 


PZE 




K 


PZE 




N 


PZE 




NONEEO 


PZE 




NPERF 


PZE 




NNL 


PZE 





AL0C0574 
AL0C0575 
AL0C0576 
AL0CC577 
ALOC0578 
AL0C0579 
ALOC0580 
ALOC0581 
AL0C0582 
AL0C0583 
ALOC0584 
AL0CC585 
AL0C0586 
AL0C0587 
ALOC0588 
AL0C0589 
ALOC0590 
AL0C0591 
AL0C0592 
AL0CC593 
AL0CC594 
AL0C0595 
AL0C0596 
AL0CC597 
ALOC0598 
AL0C0599 
ALOCC6C0 
ALOCC601 
ALOCC602 
AL0C06C3 
AL0C0604 
ALOC06C5 
ALOC06C6 
ALOC0607 
AL0CC608 
AL0CC609 
AL0CC610 
ALGCC611 
ALOC0612 
AL0CC613 
ALOC0614 
AL0CC615 
AL0C0616 

AL0CC617 
ALOC0618 
ALOC0619 
ALOCC620 
AL0CC621 
AL0C0622 
ALOC0623 
AL0CC624 
ALOC0625 
ALOC0626 
ALOC0627 
AL0CC628 
ALOC0629 
ALOC0630 
ALOC063! 
ALOC0632 
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NOLD 


PZE 




NNEW 


PZE 




NCOUNT 


PZE 




TEMP 


PZE 




FILE 


PZE 




MCNT 


PZE 




ZERO 


PZE 




ONE 


OCT 


000001000000 


TWO 


OCT 


000002000000 


THREE 


OCT 


000003000000 


FOUR 


OCT 


00C0O4G0OO0O 


U 


COMMON 


no 


I NORM 


COMMON 


9 


TOP 


COMMON 




Nl 


COMMON 




NL 


COMMON 




NT 


COMMON 




NREQ 


COMMON 




TN 


COMMON 





TWO 



TOP OF COMMON PLUS ONE 

TOP OF POOL 

NEXT MEMORY LOCATION TO BE AS 

BOTTOM OF POOL 

SCRATCH TAPE FOR FILING 
END 

* LIST8 

» LABEL 

CFILEA5 ROUTINE FOR READING ANO WRITING FILE TAPES 1-17-64 LOGCHER 

C REVISED VERSION FOR PROCESSOR - CHAIN TAPE USED AS SYSTEM TAPE 
SUBROUTINE FILES (NOP, TN,NFILE, NCOUNT, ARRAY ) 
COMMON U, I SCAN, ISUCCFIL, LFILE, FIL2,NTAPE,NXREC 
DIMENSION ARRAY(100),U(112),FIL(7),FIL2{5),ISCAN{5) 
DIMENSION NTAPE<5),NXREC(5),BUF(254),LBURt254) 
EQUIVALENCE (BUF,LBUR) 
XNTF<L) = UL-l)/20+l)-(4»<(L-l)/ 80)) 
XNRNF(L) = U-l)/80 +1 
XLFNF { L ) = ( ( L- 1 ) / 20 ) #20+21 
XFIBF(L)=L~20»{(L-l)/20) 
5 GO TO (10, 20, 30, 30, 19), NOP 

C SCRATCH TAPES USED NOW ARE Bit B2, B3, A4 

10 NTAPE(1)=5 
NTAPE(2)=6 
NTAPE(3)=7 
NTAPE(4)=8 
LFILE=1 
N8UF=0 

DO 11 1=1,4 
NT'NTAPEU) 
NXREC(I)=1 

11 REWIND NT 

12 RETURN 

C DUMP BUFFER ON TAPE AND RETURN 

19 NS1=3 

IF(N8UF)12,12,234 

20 IF(NC0UNT-252)231,231,21 

C IS BUFFER EMPTY 

21 IF(NBUF)25,25,22 

22 NSi'l 

C EMPTY BUFFER 

234 NIT=XNTFUFILE-1) 

NT*NTAPE(NIT) 

NIR=XNRNFCLFILE-1) 
230 IF(NIR-NXREC(NIT))23,24,26 

23 PRINT 1, LFILE 
GO TO 12 



AL0CC633 
ALOC0634 
ALOC0635 
AL0C0636 
ALOC0637 

ALOC0638 

AL0C0639 

ALOC0640 

AL0CC641 

0647 

0648 

0649 

ALOC0643 

ALOC0644 

SIGNAL0C0645 

AL0C0646 

ALOC0647 

AL0CC648 

AL0C0649 



-AS 

A5 



231 



1 F0RMAT(39H1ERR0R IN TAPE WINDING FOR WRITING FILE, 16) 

24 WRITE TAPE NT, (BUF< I ) , 1=1, 254) 
NBUF=0 

LFILE=XLFNFUFILE-1) 
NXREC{NIT)=NXREC<NIT)+1 

GO TO (25,235, 13), NS1 

25 NIT=XNTFUFIL£) 
NT=NTAPE(NIT) 
NIR=XNRNF<LFILE) 
NS2=2 

29 IF<NIR-NXRECCNIT))23,27,240 

26 NS2 = 1 

C FORWARD SPACING ROUTINE 
240 READ TAPE NT,NOLD 

NXREC ( N I T ) =NXREC i N I T ) +1 

GO TO (230,29,37),NS2 
C WRITE ARRAY ON TAPE - IT EXCEEDS BUFFER SIZE 

27 WRITE TAPE NT ,LFILE,NCOUNT, ( ARRAY* I ) , 1*1 ,NCOUNT) 
NFILE=LFILE 

LFILE=XLFNFUFILE) 
NXREC (NIT )=NXREC (NIT )+l 
13 IF(65400-LFILE)14,12,12 

14 PRINT 15 
IN0RM=1 

CALL CHAIN{1,4) 

15 FORMAT (50H1TAPE CAPACITY EXCEEDED. PROBLEM CANNOT CONTINUE*) 
C WILL ARRAY FIT IN BUFFER 

231 IF(NBUF+NCGUNT-252)232,232,233 
C NO - EMPTY BUFFER 

233 NSi=2 

GO TO 234 
C IS THIS THE FIRST FILE 

232 IF { XF IBF UF I LE)- 1)235, 237, 235 

C YES - DUMP BUFFER IF NON EMPTY AND -235- PUT ARRAY IN BUFFER 

237 IF(NBUF)235,235,233 

C NO - 235 - PUT ARRAY IN BUFFER 

235 I8UF=NBUF*2 
L8UR(I8UF-1)*LFILE 
LBUR(IBUF)=NCOUNT 
DO 236 I=1,NC0UNT 
I1=IBUF+I 

236 BUFU1)=ARRAYU) 
NBUF=I1 
NFILE=LFILE 
LFILE=LFILE+1 

GO TO 12 

30 LB=XFIBF(NFILE)-1 
IF(LBUR(1)-NFILE*L8)33,74,33 

33 NIR*XNRNF(NFILE) 

NIT=XNTF(NFILE) 

NT=NTAPE<NIT) 

NS2 = 3 
37 IF(NIR-NXRECINIT)) 31,35,240 

31 N*NXREC(NIT)-NIR 
IF(NXREC(NIT)/4-N)45,45,60 

60 DO 32 1=1, N 

32 BACKSPACE NT 

35 NXRECCNIT)=NIR*1 

IFIN0P-3)22,36,40 
45 REWINO NT 
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NXREC(NIT)=1 

GO TO 37 
36 IF(NC0UNT-252)7Q,70,38 
38 READ TAPE NT ,NCLD,N, ( ARRAYU) , I = l,NCOUNT ) 

IFCNFILE-NCLD)44,12,44 
44 PRINT 2,NFILE 

ISUCC=2 

ISCAN=2 

CALL CHAINU,4) 
70 READ TAPE NT, C BUF{ I ), 1=1,254) 

74 NBF=2 
IF<LB)44,77,78 

78 DO 71 1=1,18 

71 NBF=NBF+2+LBUR(N8F) 

77 IF(LBUR(NBF)-NC0UNT)75,72,72 

72 DO 73 I=1,NC0UNT 
J=NBF*I 

73 ARRAY(I)=BUF(J) 
GO TO 12 

75 N=N + 1 

DO 76 I=N,NCGUNT 

76 ARRAY(I)=0.0 
NC0UNT=N-1 
GO TO 72 

40 IF{XFIBF(NFILE)-1)44,41,70 

41 READ TAPE NT, NOLO, N 
BACKSPACE NT 
IF(NC0UNT-N)38,38,42 

42 N=N+1 

DO 43 I=N,NCCUNT 

43 ARRAYU)=0.0 
NCOUNT=N-l 
GO TO 38 

2 FORMAT (25H1TAPE READING ERROR, FILE, 16 ) 
END 

* LIST8 

* LABEL 

CDUMPER ALLOCATOR VERSION I DUMPER 
SUBROUTINE OUMPER{K,N,LOCW ) 
COMMON U,IU 

DIMENSION UtlOO) ,IU(1G0) 
EQUIVALENCE (U,IU) 
PRINT 1,L0CW 
PRINT 2 
DO 10 1*1, N 
J=K+I 
10 PRINT 3,U( J) ,IUU),U(J),U(J) 
RETURN 

1 FORMAT (52H1DUMP OF ARRAY ASSOCIATED WITH CODEWORD AT LOCATION ,0 
15) 

2 FORMAT (12H- FLOAT ING, 6X, 5HFI XED,6X, 3HBCD,6X, 5H0CTAL ) 

3 FORMAT (E14.4,I9,A10,014) 
END 

* FAP 

COUNT 80 
LBL PACKW 

* PACKING AND UNPACKING ROUTINES FOR STRESS VERSION 3 JULY 24,1963 

ENTRY PACKW 
ENTRY UPACW 
ENTRY PADP 
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ENTRY UPADP 
♦SUBROUTINE PACKW( A, I, J, K f L,M) 
♦STRESS PROGRAMMING SYSTEM 
♦ S.J.FENVES, 3/22/63 
♦PACKS I,J,K,L,M INTO A 
♦S,l,2 I 



•3-17 


J 




♦18-23 


K 




♦24-29 


t 




♦30-35 


M 




PACKW 


STZ^ 


1,4 




CLA^ 


2,4 




ALS 


15 




STP^ 


1,4 




CLA^ 


3,4 




STD^ 


1,4 




CLA^ 


4,4 




ANA 


M2 




ARS 


6 




ORS^ 


1,4 




CLA^ 


5,4 




ANA 


M2 




ARS 


12 




ORS^ 


1,4 




CLA^ 


6,4 




ANA 


M2 




ARS 


18 




ORS^ 


1,4 




TRA 


7,4 



CLEAR A 
I 

STORE I 

STORE J 

STORE K 

STORE L 

STORE M 



♦SUBROUTINE UPACW1 A, I , J,K,L ,M) 

♦S.J.FENVES 3/22/63 

♦UNPACKS A ORIGINALLY PACKED BY PACKW 



UPACW 


CAL^ 
ST2» 
STZ^ 
STZ» 
STZ^ 
STZ^ 


1,4 
2,4 
3,4 
4,4 
5,4 
6,4 




A TO ACCUMULATO 




STO^ 


3,4 




STORE J 




ARS 


15 




I TO DECREMENT 




STD^ 


2,4 




STORE I 




CAL^ 


1,4 




A TO AC 




ANA 


MASK 




CLEAR LEFT HALF 




ALS 


6 




K 




STD* 


4,4 




STORE K 




ANA 


MASK 








ALS 


6 








STD^ 


5,4 




STORE L 




ANA 


MASK 








ALS 


6 








STD^ 


6,4 




STORE M 




TRA 


7,4 






MASK 


OCT 


000000777777 




M2 


OCT 


0000770COOOO 




SUBROUTINE 


PADPU, 


rI,J,K) 




R.D 


• LOGCHER 7/24/63 




PACKS I INTO PREFIX OF A 




PACKS J INTO THE 


DECREMENT OF A 




PACKS K INTO THE 


ADDRESS OF A 




PADP 


CLA* 


2,4 
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STZ* 


1,4 


ALS 


15 


STP* 


1,4 


CLA* 


3,4 


STD* 


1,4 


CLA* 


4,4 


ARS 


18 


STA* 


1,4 


TRA 


5,4 



» SUBROUTINE UPADP ( A , I , J ,K ) 

* R.D.LOGCHER 24/7/63 

» UNPACKS WORD GENERATED BY SUBROUTINE PADP 

* I FROM PREFIX OF A 

* J FROM DECREMENT OF A 

* K FROM AODRESS OF A 
UPADP 



CHAIN 



CHA 



CLA* 


1,4 




STZ* 


2,4 




STZ* 


3,4 




STZ* 


4,4 




STD* 


3,4 




ALS 


18 




STD* 


4,4 




CAL* 


1,4 




ARS 


15 




STD* 


2,4 




TRA 


5,4 




END 






FAP 






COUNT 


200 


CHAIC010 


SST 




CHAIC020 


32K 709/7090 FORTRAN LIBRARY 9CHN 


CHAI0030 


32K 709/7090 FORTRAN LIBRARY MIT VERSION. MARCH 28,1962 


MICHAIC040 


TTL 


MONITOR CHAIN ROUTINE / 9CHN FOR STRESS III PROCESSOR CHAICC50 


ALL CARDS SEQUENCE NUMBERED WITH MI ARE ONLY FOR MIT MONITOR 


ALL CARDS SEQUENCE NUMBERED WITH STRES ARE FOR STRESS PROCESSOR 


LBL 


STCHA5 


STRESCHAIC060 


MAY 16 


1963 REVISED FOR TSS BACKGROUND 


MICHAICC70 


AUG 22 


1963 * REVISED FOR 7094 


MICHAIC071 


NOV 20 


1963 * REVISED FOR STRESS III 


STRESCHAI0072 


JAN 15 


1964 * REVISED FOR STRESS III PROCESSOR TAPE ON A5 


STRESCHAI00076 


ENTRY 


CHAIN 


CHAIC080 


LTM 




CHAIC090 


EMTM 


7094 


MICHAI0092 


ENB 


=0400000 DISABLE EVERY TRAP BUT CLOCK 7094 


MICHAIC094 


SXA 


♦♦2,4 


CHAIC120 


XEC* 


SITES) 


CHAIC130 


AXT 


»*,4 


CHAI0140 


CLA* 


1,4 


CHAIC150 


STD 


CHWRD 


CHAIC180 


AXT 


1093,4 SET FOR 


CHA 1 0490 


SXA 


XA3+1,4 A5 


CHAI0500 


TXI 


•♦1,4,-448 IRC = 1205 OCTAL 


CHAI0510 


AXT 


4,2 


CHAI0520 


SXA 


CHWRD, 2 


CHAIG530 


AXT 


2048,2 


CHAI0540 


PXD 


0,2 


CHAI0550 


ORS 


XCI+8 SET 5L 


MICHAIC560 


ALS 


1 


CHA 1 0570 


ORS 


XCI+16 SET A 


MICHAI0580 


CLM 




CHA I OS 30 



235 



CHAB 



CHC 



LDQ 

SXA 

SXA 

SXA 

TXI 

SIC 

SXA 

STP 

SIC 

STP 

STP 

SXA 

STP 

SLC 

STP 

STP 

STP 

AXT 

AXT 

CLA 

STO 

TXI 

TIX 

TEFA 

AXT 

CLA 

TCOB 

RDS 

RCHB 

TCOB 

TRCB 

TEFB 

LXA 

TXH 

TXH 

AXT 

SXA 

SUB 

TNZ 

CLA 

STO 

STA 

CAL 

ERA 

POX 

TXH 

TZE 

CLA 

STO 

LXD 

PXA 

ADD 

STO 

2ET 

TRA 

SUB 

TMI 

STO 

TSX 

CLA 



XXA 

CHD,4 

XLA,4 

CHE+3,4 

*+l,4,16 

CHC+2 

CHC+3,4 

CHC+4 

CHC + 5 

CHC+6 

CHC + 7 

XLC,4 

XLC+1 

XLD 

XLD + 1 

XLD+2 

CHC-1 

XL(G)-XLA+1,1 

0,2 

XLA,2 

•XLA,2 

*+l,2,-l 

*-3,l,l 

• + l 
5,1 
CHWRD 
* 

*• 

CHSEL1 

* 

CHD 

CHE 

LBL,2 

•♦2,2,4 

*+3,2,l 

4,2 

LBL,2 

LBL 

CHC 

LKRCW 

.XLZ 

•XL(O) 

PROG 

XGO 

,1 

•XXA, 1,0 

• XXA 
PROG 

• XGO 
•XLZ,1 
tl 

= 100 

TEMP 

INORM 

♦♦5 

NL 

•♦3 

NREQ 

$RE0RG,4 

TEMP 



TCOA 










CHAI0600 


AC=PREFIX +OR-,MQ=TCO AC 


=2202,2203, 


1204 


BSCHAIC610 


BSR 










CHAIC620 


REW 










CHAIC630 


SET IRC 


FOR BIN 








CHAIC640 
MICHAI0645 


RTB 










MICHAIC650 


RCH 










MICHAIC660 


TCO 










MICHAI0670 


TRC 










MICHAI0680 


TEF 










MICHAIC690 


RTB 










CHAIC7C0 


RCH 










CHAIC710 


TCO 










CHAIC720 


TRC 










CHAIC730 


SCH 










CHAIC740 


TEF 










CHAIC750 


MOVE 










CHAI0760 


LOAOER TO UPPER 








CHAIC770 












CHAIC780 












CHA10790 












CHAIC8C0 












CHAI0810 












CHAIC820 












CHAIC830 












CHAI0840 












MICHAIC845 


2 










CHAIC850 


3 










CHAI0860 


4 










CHAI0870 


5 










CHAIC880 


6 










CHAI089C 
CHAIC900 
CHAIC910 
CHAIC920 


ANY TAPE 


1 EXCEPT 2 OR 3 MAKE 4 




CHAIC930 












CHAI0940 


IS THIS 


THE CORRECT 


LINK 






CHAIC950 


NOT THIS 


; ONE 








CHAIC960 
CHAIC970 


CONTROL 


WORD FOR READING 


LINK 




CHAI0980 












MICHAIC985 












CHAIC990 












CHAUCCO 












CHAI1010 


MAKE SURE 3RD WORD 


IS TRA 


TO SOMEWHERE 


CHAI1020 


IF NOT, 


COMMENT BAD 


TAPE 






CHAI1030 
CHAI1C40 


TRANSFER 


1 TO LINK 








CHAI1050 










STRESCHAI1051 










STRESCHAI1052 










STRESCHAI1053 



STRESCHAI1055 
STRESCHAU056 
STRESCHAI1057 
STRESCHAI1058 
STRESCHAI1059 
STRESCHAI1060 
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STO 


NT 




AXT 


5,1 




TRA 


.xtc 


TEMP 


PZE 




CHO 


BSRB 


• • 




TIX 


CHC+1,1,1 




TRA 


.XXA 


CHE 


NZT 


CHAIN 




TRA 


NGD 




STZ 


CHAIN 




REWA 


»» 




TRA 


CHC 


NGD 


LXA 


XA3+l 9 l 




SXD 


COMl+3,1 




TCOA 


* 




WTDA 


PRTAPE 




RCHA 


CHSEL2 




TRA» 


$EXIT 


CHWRD 


PZE 




TCOB 


TCOB 


* 


CHSEL1 


IORT 


LBL, ,3 


LBL 






LKRCW 






PROG 






CHSEL2 


IORT 


COMI, ,7 


COMi 


BCI 
REM 


7,1 LINK 


XLA 


BSRA 
IOT 

NOP 


*• 




TIX 


.XLC, 1,1 


XXA 


TCOA 


.XXA 




WTDA 


PRTAPE 




RCHA 


.XLX 


XXA1 


TCOA 
WPDA 


.XXA1 




RCHA 


.XCIL 


XXA2 


TCOA 


.XXA2 




REWA 


1 




REWA 


4 




REW8 


1 




REWB 


2 




REWB 


3 


21 


HTR 
ENK 


.Zl + 1 




TQP 


.XLB 




BSFA 


2 


XLB 


RTBA 


1 




RCHA 


• XLY 


12 


TCOA 


.Z2 




RTBA 


I 


13 


TCOA 


.Z3 




RTBA 


1 




TRA 


1 




REM 




XLC 


ROS 


• • 




RCHB 


.XLZ 


XLD 


TCOB 


.XLD 




TRCB 


• XLA 




SCHB 


.XSCH 



CHAI1061 
CHAI1070 



SECOND EOF NO GOOD 



3N TAPE . JOB TERMINATED. 
REDUNDANCY, TRY AGAIN 

COMMENT BAD TAPE 



REPEAT JOB 
READ IN 1 TO CS 



GO TO SIGN ON 
REAO IN LINK 



CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 

MICHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 

MICHA 
CHA 
CHA 

MICHA 
CHA 
CHA 
CHA 
CHA 
CHA 

MICHA 
CHA 
CHA 
CHA 
CHA 
CHA 

MICHA 
CHA 

MICHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 
CHA 



11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
11175 
11180 
11190 
11200 
11210 
11220 
11230 
11240 
11250 
11260 
11270 
11280 
11290 
11300 
11310 
11320 
11330 
11340 
11350 
11360 
11365 
11370 
11390 
11400 
11470 
11480 
11490 
11500 
11510 
11520 
11530 
11540 
11550 
11560 
11570 
11575 
11580 
11585 
11590 
11600 
11610 
11620 
11630 
11640 
11650 
11660 
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LAC 


.XSCH, 2 




CLA« 


.XL(O) 




STO 


.XLDI 


XLOl 


TXI 


•XLDl+1,2,** 




TXH 


.XXA, 2,0 WAS RECORD READ IN 


XGO 


TRA 
REM 


«* OK, GO TO THE LINK 


XCI 


OCT 


000100001200,0 9L 




OCT 


000000400000,0 8L COL 6=1,2 




OCT 


000200000000,0 7L CHANNEL A,B 




OCT 


000000004004,0 6L COL 7=2,3,4 




OCT 


000441000440,0 5L TAPE NO. 




OCT 


041000000100,0 4L BAO XX DEPRESS 




OCT 


000000010000,0 3L KEY S TO RERUN 




OCT 


200032100002,0 2L 




OCT 


100000000010,0 1L 




OCT 


000030510100,0 OL 




OCT 


000302005254,0 11L 




OCT 


351441000402,0 12L 


XA3 


BCI 


1,1 BAD 




BCI 


It 


XIX 


IORT 


.XA3,,2 


XCIL 


IOCT 


.XCI, ,24 


XLY 


IOCP 


0,,3 




TCH 





XLZ 


IORT 


»»,,*» 


XSCH 


PZE 




XL(O) 


PZE 
REM 




PRTAPE 


EQU 


3 


.X 


COMMON 





.XLA 


ECU 


.X+2 


.XXA 


EQU 


.XLA+4 


.XXAi 


EQU 


.XXA+3 


.XXA2 


EQU 


.XXA1+3 


.Zl 


EQU 


.XXA2+6 


.XLB 


EQU 


.Zl+4 


.12 


EQU 


.XLB+2 


.Z3 


EQU 


.Z2 + 2 


.XLC 


EQU 


.Z3 + 3 


.XLD 


EQU 


.XLC+2 


.XLDi 


EQU 


•XLO+6 


.XGO 


EQU 


.XL01+2 


.XCI 


EQU 


•XGO+1 


.XA3 


EQU 


.XCI+24 


• XLX 


EQU 


.XA3+2 


.XCIL 


EQU 


.XLX+1 


.XLY 


EQU 


.XCIL+l 


.XLZ 


EQU 


.XLY+2 


.XSCH 


EQU 


.XLZ+1 


.XL(O) 


EQU 


.XSCH+1 


u 


COMMON 


110 


INORM 


COMMON 


11 


NL 


COMMON 


1 


NT 


COMMON 


1 


NREG 


COMMON 
END 


1 


* 


LIST8 




* 


LABEL 






SUBROUTINE PRER2U,N,A) 



PROGRAM BREAK 



CHAI1670 

MICHAI1680 

CHAI1690 

CHAI1700 

CHAI1710 

CHAU720 

CHAI1730 

MICHAI1740 

MICHAI1750 

MICHAI1760 

MICHAU770 

MICHAI1780 

MICHAI1790 

MICHAI1800 

MICHAU810 

MICHAU820 

MICHAI1830 

MICHAI1840 

MICHAI1850 

CHAI1860 

CHAI1870 

CHAI1880 

MICHAI1890 

CHAI1910 

CHAI1920 

CHAI1930 

CHAI1940 

CHAI1950 

CHAI1960 

CHAI1970 

CHAU980 

CHAU990 

CHAI2CC0 

MICHAI2010 

CHAI2020 

MICHAI2025 

MICHAI2030 

MICHAI2033 

MICHAI2036 

MICHAI2040 

CHAI2050 

CHAI2060 

CHAI2070 

CHAI2080 

MICHAI2090 

CHAI21C0 

CHAI2110 

MICHAI2120 

CHAI2130 

CHAI2140 

CHAI2150 

STRESCHAI2161 

STRESCHAI2162 

STRESCHAI2163 

STRESCHAI2164 

STRESCHAI2165 

CHAI2170 
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DIMENSION ITC4),B£TA{7),BUFA(85),B(8),SYSFIL(32),PROFILC27), 
1 ARRFIL(14),U{5),IU{5) 
COMMON U, I U, INDEX, I T ,BETA, BUFA,B , JJC,JMC»JLD, 

1 CHECK, NMAX, INORM, ISOLV, ISCAN,* I I I , IMOD, JJ J J ,ICQNT, ISUCC, IMERG, 

2 TOP,Nl,NL f NT,NREQ,TN,LFILE,SYSFIL,NJ,NB,NDAT,ID,JF,NSQ,NCORD, 

3 IMETH, NLDS,NFJS,NSTV,NMEMV, IPS I , NMR,NJR,PROFIL ,NAME,KXYZ,KJREL , 

4 JPLS,JMIN,MTYP,KPSI,MEMB,LOADS,MODN,KS,KMKST,KSTDB,KATKA,KPPLS, 

5 KPMNS,KUV,KPPRI,KR,KSAVE,KSRTCH,ARRFIL,JEXT 
EQUIVALENCES, IU, INDEX), {IT, IU(2),U{2)) 

C KENNETH F. REINSCHMIDT, ROOH 1-255, EXT. 2117 
C STRESS. •.STRUCTURAL ENGINEERING SYSTEM SOLVER 
C VERSION III. ..13 AUGUST 1963 

GO TO (1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19), J 

1 PRINT 801, N 
GO TO 500 

801 FORMAT (7H MEMBER, 15, 29H SINGULAR FLEXIBILITY MATRIX. ) 

2 PRINT 802, N 
GO TO 500 

802 FORMAT (46H OVERFLOW INVERTING FLEXIBILITY MATRIX, MEMBER, 15 , 1H. ) 

3 PRINT 803, N, A 
GO TO 500 

803 FORMAT (26H COMPUTED LENGTH OF MEMBER, 15 ,38H NOT EQUAL TO THE SUM 
10F THE SEGMENTS. ,G5,28H SEGMENTS HAVE BEEN DELETED. ) 

4 PRINT 804, N 
500 RETURN 

804 FORMAT ( 10H TIME USED ,I6,9H SECONDS. ) 

5 PRINT 805»N 
GO TO 500 

805 FORMAT (7H MEMBER, 15, 29H UNSTABLE, TOO MANY RELEASES. ) 

6 PRINT 806, N 
GO TO 500 

806 FORMAT { 5H PART,I5,22H OF PROBLEM COMPLETED. ) 

7 PRINT 807 
GO TO 500 

807 FORMAT (48H STRUCTURE FOUND UNSTABLE DUE TO JOINT RELEASES. ) 
8 CALL ALOCATUEXT) 
NN=JEXT+N 
NN=IU(NN) 
PRINT 808,NN,A 
CALL RELEASUEXT) 
GO TO 500 
808 F0RMAT(6H JOINT, 15, 13H IS UNSTABLE. ,G12. 4) 
9 PRINT 809, A 
GO TO 500 
809 FORMAT (11H THE WORD *,A6,23H* CANNOT BE TRANSLATED. ) 
10 PRINT 810, N, A 

GO TO 500 
810 F0RMATJ5H THE ,I3,22HTH LOAD DATA FOR JOINT, 14, 15H ARE INCORRECT.) 

11 PRINT 811, N, A 
GO TO 500 

811 FORMAT (4H THE ,I5,31H TH SEGMENT HAS BEEN ALTERED TO ,G15.5 ) 

12 PRINT 812, N, A 
GO TO 500 

812 FORMAT (51H MEMBER TYPE AND LOAD TYPE ARE INCOMPATIBLE, MEMBER , 
1 I5,10H LOAD TYPE ,65) 

13 PRINT 813, N, A 
GO TO 500 

813 FORMAT C15H LOAO ON MEMBER ,I5,18H LOADING CONDITION ,G5, 
1 34H INCOMPATIBLE WITH STRUCTURE TYPE. ) 

14 PRINT 814, N, A 
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GO TO 
FORMAT 

1MEMBER 
15 PRINT 
GO TO 
815 FORMAT 
PRINT 
GO TO 
FORMAT 

IS NOT 
PRINT 
GO TO 
FORMAT 

1 OF ON 
PRINT 
GO TO 
FORMAT 

18H WHI 

2LETE0) 
PRINT 
GO TO 
FORMAT 

IT ARE 
END 

* FAP 

* MODIFIES 
♦CTME) MERWI 

* CLOCK 

* LOCAT 
LBL 
COUNT 

* AUGUS 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 



814 



16 



816 



17 



817 



18 



818 



19 



819 



500 

(62H MODULUS OF ELASTICITY (OR SHEAR MODULUS) NOT GIVEN FOR 

,I5,14H VALUE USED IS,G15.5) 

815, A 

500 

(47H ALLOCATION OF UNDEFINED CODEWORD IN LOCATION ,05) 
816, N, A 
500 

(13H JOINT NUMBER, 15, 25H FOR INCIDENCES OF MEMBER, 15, 16H DOE 
EXIST,) 
817,N 
500 

(14H MEMBER NUMBER, 15, 61H IS DELETED AS A RESULT OF DELETION 
E OF ITS END JOINTS.) 
818,A,N,N,A 
500 

<21H LOADING COMBINATION I4,25H INCLUDES LOAD CONDITION 14,3 
CH IS NOT SPECIFIED YET. EFFECT OF 14, 4H ON I4,16H WILL BE OE 

819, N 
500 

(6H JOINT, 15, 69H IS A FREE JOINT. RELEASES SPECIFIED FOR I 
THEREFORE INCORRECT.) 



9/24/63 FOR CLOCK ENABLED AFTER TRAPPING ON REG RUNS 
N C043-25 

MODIFIED FEB. 3, 1964 FOR STRESS FOR USE WITH CHAIN 
ION CNTRL MOVED TO LOWER COMMON - 75 

STIHE 

220 
T 27,1962 

(TIME) 

TIMER 

JCB1M 

RSCLCK 

STOPCL 

KILLTR 

TIMLFT 

RSTRTN 

(FRM7) 



RSCLCK.. 

STOPCL 

JCBTM 

TIMER 

KILLTR 

TIMLFT 

RTNRST 



CALLING 
CALLING 

CALLING 
CALLING 
CALLING 
CALLING 
CALLING 



.RESET CLOCK TO TIME,, ZERO,, 

GIVES BACK TIME SINCE LAST RSCLCK. 
GIVES BACK TIME SINCE START OF J08. 
SETS CLOCK TO ACT LIKE ALARM CLOCK. 
RESETS ALARM CLOCK BEFORE IT GOES OFF 
GIVES BACK TIME LEFT FOR JOB TO RUN. 
RETURN TO INTERRUPTED PROGRAM 

MACHINE CONDITIONS RESTORED 

INTERRUPT 

RSCLCK 

STOPCL( I) 
CALL TIMLFT(I) 

TIMER(I,STMT) 

KILLTR 



WITH 

LAST 

SEQUENCE. ..CALL 

SEQUENCE. ..CALL 

SEQUENCE, 
SEQUENCE. ..CALL 
SEQUENCE. ..CALL 



SEQUENCE- 
SEQUENCE, 



.CALL JOBTM(I) 
.CALLRSTRTN 



FRM7C0C0 
FRM7CC01 
FRM7C010 



FRM7C030 
FRM7C040 
FRM7C050 
FRM7C060 
FRM7C070 
FRM7C080 
FRM7C090 
FRM7C1C0 
FRM7C110 
FRM70120 
FRM7C130 
FRM7C140 
FRM7C150 
FRM70160 
FRM70170 
FRM7C180 
FRM70190 
FRM7G200 
FRM7C210 
AS OFFRM7C220 
FRM70230 
FRM70240 
FRM70250 
FRM7C260 
FRM7C270 
FRM70280 
FRM7C290 
FRM7C3C0 
FRM70310 
FRM7G320 
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* 




REGISTERS IN LOWER CORE 


* 7 


TTR 


CLKL 




* CLKL 


STL 


CLKIND 




* 


TTR* 


6 




*CLKINC 






•JOBTIM 






CLKRD 


SYN 


5 




CLKLOC 


SYN 


6 




CLKTRA 


SYN 


7 




CNTRL 


SYN 


75 


OLD TIME 


LSTSET 


SYN 


76 




TMLEFT 


SYN 


77 




(JBTM) 


SYN 


91 




JOBTIM 


SYN 


(JBTM) 




(CKIN) 


SYN 


92 




CLKIND 


SYN 


(CKIN) 




* 




(TIME) 




(TIME) 


SYN 


* 






SXA 


TM2,1 




TM1 


CAL 


CLKRD 






STZ 


CLKRD 






COM 








STO 


TMLEFT 






STO 


LSTSET 






ANA 


=0777777 






ORA 


STRT 






LXA 


NTBL, 1 






SLW 


TMTBL,l 






TXI 


*+ltif-l 


OPCODE VA 




SXA 


NTBL,1 






CAL 


TRA7 






SLW 


CLKTRA 






CAL 


TMLEFT 






COM 








STO 


CLKRD 






NZT 


CLKIND 






TTR 


TM2 






CALL 


EXIT 




TM2 


AXT 


*•» 1 






TTR 


1,4 




TRA7 


TTR 


FR0M7 




STRT 


PON 


OtO.GOMON 


VECTOR EN 



GOMON STL 
TTR 



GOMCN SETS CLOCK INDICATOR NON-ZERO AND THEN TO EXIT, 

CLKIND 
$EXIT 



••*•»*•«****•***•«*******•••••••*••*•*••«•*••*•**•*•»»»••*•*•*•••»****• 



JOBTM SYN 
CAL 
COM 
STO 



JOBTM 

CALLING SEQUENCE. 



CLKRD 
TMET 



.• TSX JOBTM, 4 
PZE TIMEX 
(TXH) 



RESULT IN OECR, 
RESULT IN ADDR. 



FRM7C330 
FRM7G340 
FRM70350 
FRM7C360 
FRM7C370 
FRM70380 
FRM70390 
FRM7C4C0 
FRM7C410 
FRM70420 



FRM70430 
FRM70440 
FRM7C450 
FRM7C460 
FRM70470 
FRM70480 
FRM70490 
FRM7C5C0 
FRM70510 
FRM70520 
FRM70530 
FRM70540 
FRM70550 
FRM7C560 
FRM70570 
FRM7C580 
FRM70590 
FRM7C600 
FRM7C610 
FRM7C620 
FRM70630 
FRM70640 
FRM70650 
FRM7C660 
1FRM70670 
2FRM70680 
3FRM70690 
FRM7C700 
FRM70710 
FRM7C720 
FRM70730 
FRM7C740 
FRM70750 
FRM70760 
FRM70770 
FRM7C780 
FRM70790 
•FRM70800 
FRM70810 
FRM7C820 
FRM70830 
FRM70840 
FRM70850 
FRM70860 
FRM70870 
FRM7C880 
FRM70890 
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CAL 


1,4 


STP 


PRFX 


CLA 


JOBTIM 


SUB 


TMLEFT 


ADD 


LSTSET 


SUB 


TMET 


NZT 


PRFX 


ALS 


18 


STO* 


1,4 


TTR 


2,4 



TMET 



TEMPORARY 



******»**»**«#«••*«»**«»*#***«*««***•*«*«»««*»«*•*»*«******««•*»♦*« 



TIMLFT 

CALLING SEQUENCE. 



,.TSX TIMLFT, 4 
PZE LEFT 
(TXH) LEFT 



RESULT IN DECR. 
RESULT IN ADDR. 



TIMLFT 


SYN 


• 




SXA 


TML1,4 




TSX 


JC8TM,4 




TXH 


RUNR 


TML1 


AXT 


»*,4 




CAL 


1,4 




STP 


PRFX 




CLA 


JOBTIM 




SUB 


RUNR 




NZT 


PRFX 




ALS 


18 




STO* 


lt« 




TTR 


2,4 


RUNR 


PZE 




•****•*••*»****«••*»** 



»•»•**»••*»«**#«**»*••«»•••*••*»*****•****«•**** 



•**•** 



«#««*#»#♦*##«*#»«***»«♦*««#***«#********************** 

RSCLCK 

CALLING SEQUENCE. ..TSX RSCLCK, 4 



**»*«•« 



RSCLCK 


SYN 


• 






SXA 


RSC1,4 






TSX 


J08TM,4 






TXH 


CNTRL 




RSC1 


AXT 


**,4 






TTR 


1,4 




» 




STOPCL 




* 




CALLING 


SEQUENCE. ..CALL STOPCL(J) 


STOPCL 


SYN 


* 






SXA 


STP1,4 






TSX 


J0BTM,4 






TXH 


NEWT 




STP1 


AXT 


*»,4 






CAL 


1,4 






STP 


PRFX 






CLA 


NEWT 






SUB 


CNTRL 






NZT 


PRFX 






ALS 


18 


0=FORTRAN TYPE 




STO* 


1,4 


NCN-ZERO=MAC TYPE 




TTR 


2,4 




NEWT 








•*•#*»«••*•««#«**•*•«***««********«««***•****»** 



I ••*••».* 



FRM709C0 
FRM7C910 
FRM7C920 
FRM7C930 
FRM70940 
FRM70950 
FRM7C960 
FRM7C970 
FRM7C980 
FRM70990 
FRM71CC0 

*****FRM71010 
FRM71020 
FRM71030 
FRM71040 
FRM71050 
FRM71060 
FRM71070 
FRM71080 
FRM71090 
FRM71100 
FRM71110 
FRM71120 
FRM71130 
FRM71140 
FRM7115C 
FRM71160 
FRM71170 
FRM71180 
FRM71190 
FRM712CO 

*****FRM71210 
FRM71220 

»****FRM71230 
FRM71240 
FRM71250 
FRM71260 
FRM71270 
FRM71280 
FRM71290 
FRM71300 
FRM71310 
FRM71320 
FRM71330 
FRM71340 
FRM71350 
FRM71360 
FRM71370 
FRM71380 
FRM71390 
FRM714C0 
FRM71410 
FRM71420 
FRM7I430 
FRM71440 
FRM71450 
FRM71460 
FRM71470 
FRM71490 

««»**FRM715C0 
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f iMER 


SYN 


# 




SXA 


CLK10,1 




CAL 


lt4 




STP 


PRFX 




CAL* 


lt4 




NZT 


PRFX 




ARS 


18 




SLW 


NEWINT 
COMPUTE EL 




LXA 


NTBLtl 




TXL 


CLKlOt 1»0 




SXD 


CLK2,1 




CAL 


CLKRD 




STZ 


CLKRD 




COM 






XCL 






XCA 






ADO 


LSTSET 




STO 


TMUSED 




AXT 


N,i 


CLK1 


CLA 


TMT8L,1 




SUB 


TMUSED 




STO 


TMTBL,l 




rxi 


t+1,1,-1 


CLK2 


TXH 


CLKl,i,«* 




CAL 


2,4 




ANA 


=077777 




ALS 


18 




ORA 


NEWINT 




SLW 


TEMP 
SEARCH FOR 




LXA 


NTBL,1 




SXD 


CLK5,1 




SXO 


CLK8,1 




AXT 


Ntl 


CLK3 


CAL 


TMTBLtl 




ANA 


=0777777 




LAS 


NEWINT 




TRA 


CLK4 




NCP 






TRA 


SMLR 


CLK4 


TXI 


*+l,l,-l 


CLK5 


TXH 


CLK3«lt*» 




LOQ 


TEMP 




STQ 


TMTBLtl 




TRA 


CLK9 

FOUND A LA 
IN TABLE Ai 


SMLR 


LDG 


TMTBL,l 




CAL 


TEMP 




SLW 


TMT8L,1 




TRA 


CLK7 


CLK6 


CAL 


TMT8L,1 



TIMER 

CALLING SEQUENCE. •.CALL TIHER(I f NI 

...EXECUTE TIMER. (A, B) 
WHERE I GIVES TIME IN 60THS OF SECOND FOR CLOCK TO 
BEFORE ALARM. N CONTAINS LOCATION WHERE CONTROL IS 
AFTER ALARM CLOCK GOES OFF. 



TIME INTERVAL IN SECONDS 

0=FORTRAN. NON-ZERO=MAD 
TIME INTERVAL IN 60THS OF A SECOND 
ELAPSED TIME FROM LAST READING 
NO. OF OPENINGS IN TABLE 
TABLE FULL 



-TIME LEFT IN AC 

LAST SETTING-TIME LEFT 

=TIME USED IN 60THS OF SECOND. 

DECREASE TIME LIMITS 
ON ALL ENTRIES 
IN THE TABLE 



PICK UP LOCATION 

TO TRANSFER TO WHEN CLOCK GOES OFF 

PROPER POSITION IN TABLE. 



RUN 
SENT 



IF NEW INTERVAL IS LESS 
THAN REST THAT ARE 
IN THE TABLE 



FRM71510 
FRM71520 
FRM71530 
FRM71540 
FRM71550 
FRM71560 
FRM71570 
FRM71580 
FRM71590 
FRM71600 
FRM71610 
FRM71620 
FRM71630 
FRM71640 
FRM71650 
FRM7I660 
FRM71670 
FRM71680 
FRM71690 
FRM71700 
FRM71710 
FRM7172C 
FRM71730 
FRM71740 
FRM7I750 
FRM7176C 
FHM71770 
FRM7I780 
FRM71790 
FRM71800 
FRM71810 
FRM71820 
AFRM71830 
FRM71840 
FRM71850 
FRM71860 
FRM71870 
FRM71880 
FRM71890 
FRM719C0 
FRM71910 
FRM71920 
FRM7I930 
FRM71940 
FRM71950 
FRM71960 
FRM71970 
FRM71980 
FRM71990 
FRM720C0 
FRM72010 
FRM72020 
FRM72030 
FRM72040 
FRM72050 
FRM72060 
FRM72070 
FRM72080 
FRM72090 
FRM721C0 
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CLK7 

CLK8 



CLK9 



STQ 
XCL 
TXI 
TXH 
STG 
TXI 
SXA 



TMTBL,1 

• ♦Ult-1 

CLK6,1,«» 

TMTBL,1 

•♦1,1,-1 

NTBL,1 

SET CLOCK FOR NEW VALUE 

TMLEFT 

TMUSEC 

CLKRO 

TMLEFT 



ADJUST TOTAL TIME COUNT 
LOWEST INTERVAL IN MQ 



CLA 

SUB 

SUB 

STO 

XCL 

ANA 

SLW 

COM 

STO 
CLKIO AXT 

TRA 

TMUSEO 

NEWINT 

TEMP 

PRFX 

N EQU 
TMT8L BES 
NTBL PZE 
*#*»«*#«#»»**♦****»»«»*»*»»**»«»»«#»»*«*«**«»♦»»»»»»»*«****♦**»*««*»**** 



=0777777 
LSTSET 

CLKRD 

3,4 



10 

N 
N- 



RESET CC5) TO NEW VALUE 



EXIT 



KILLTR 

CALLING SEQUENCE. ..CALL KILLTR 

KILLS LAST TIMER ALARM CLOCK SETTING 

EXCEPT IF LAST SET FOR JOB TIME SETTING, 



KILLTR SYN 


• 


SXA 


CLl.l 


LXA 


NT8L,1 


TXI 


♦♦1,1,1 


CAL 


TMTBL,1 


STP 


PRFX 


ZET 


PRFX 


TRARTN TTR 


RTN 


STZ 


KILLOV 


TNO 


*+2 


STL 


KILLOV 


CAL 


CLKRD 


COM 




XCL 




XCA 




AOO 


LSTSET 


STO 


LSTSET 


CAL 


TRARTN 


ALS 


18 


STD 


TMT6L,i 


NZT 


KILLOV 


TOV 


• ♦1 


LXA 


CL1,1 


TTR 


FR0M7 



KILLOV 



RTN 



LXA 



TREAT AS IF TRAP FROM 7. 



JOB TIME SETTING CANNOT BE KILLED. 
CL1,1 



FRM72110 
FRM72120 
FRM72130 
FRM72140 
FRM72150 
FRM72160 
FRM72170 
FRM72180 
FRM72190 
FRM722Q0 
FRM72210 
FRM72220 
FRM72230 
FRM72240 
FRM72250 
FRM72260 
FRM72270 
FRM7228Q 
FRM72290 
FRM723C0 
FRM72310 
FRM72320 
FRM72330 
FRM72350 
FRM72360 
FRM72370 
FRM72380 
FRM72390 
FRM72400 
FRM72410 
FRM72420 
FRM72430 
FRM72440 
FRM72450 
FRM72460 
FRM72470 
FRM72480 
FRM72490 
FRM725C0 
FRM72510 
FRM72520 
FRM72530 
FRM72540 
FRM72550 
FRM72560 
FRM72570 
FRM72580 
FRM72590 
FRM72600 
FRM72610 
FRM72620 
FRM72630 
FRM72640 
FRM72650 
FRM72660 
FRM72670 
FRM72680 
FRM72690 
FRM727C0 
FRM72710 
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TTR 



1,4 



••••*«•**«••«***«««»«•«**••*«••••••*•*•***«««******•**«* 



ENCE...CALL RSTRTN 



* 


RSTRTN 


• 


CALLING SEQU 


RSTRTN SYN 


» 


CAL 


• 


ALS 


2 


CLA 


SPG 


ALS 


2 


ORA 


LOGAC 


NZT 


OVFL 


TOV 


«+l 


LDC 


MC 


LXA 


CLi,i 


LXA 


CL2,2 


LXA 


CL4,4 


TTR* 


6 


••*****«*••*«****««»*•••••• 


* 


EXTERNAL REG 


• 


CLKRD 


* 


ENTRY FROM 7 


(FRM7) SYN 


« 


FROM7 SYN 


• 


SXA 


CL1,1 


SXA 


CL2,2 


SXA 


CL4,4 


STZ 


OVFL 


STQ 


MC 


SLW 


LOGAC 


ARS 


2 


STO 


SPG 


TNO 


♦ ♦2 


STL 


OVFL 


LXA 


NTBL,1 


TXI 


•♦1,1,1 


CAL 


TMTBL,l 


POX 


0,2 


SXA 


TRAD, 2 


ALS 


2 


PBT 




TTR 


*+2 


TTR 


CLKN 


SXA 


NTBL,1 


SXD 


CLKM,1 


AXT 


N,l 


CLKL CLA 


TMTBL,1 


SUB 


LSTSET 


STO 


TMT8L,l 


TXI 


•♦1,1,-1 


CLKM TXH 


CLKL,1,*» 


ANA 


=0777777 


SLW 


NEWINT 


CLA 


TMLEFT 


SUB 


LSTSET 


STO 


TMLEFT 


CAL 


NEWINT 


SLW 


LSTSET 


COM 





ISTERS REFERENCED 
5 
AFTER CLOCK HAS GONE OFF. 



SAVE LOGICAL ACCUMULATOR 



SET TRANSFER 
LOCATION. 



GO TO MONITOR SETTING. DONT RESET CLOCK 



REVISE PREVIOUS 
ENTRIES IN THE TABLE. 



USE LAST ENTRY IN TABLE 
FOR NEW SETTING 
REVISE TOTAL TIME 
LEFT FOR JOB. 

UPDATE LSTSET AND 
CHANGE SETTING OF 
LOCATION 5 TO NEXT 



FRM72720 
FRM72730 

•****•**«*•*•* »«FRM72740 
FRM72750 
FRM72760 
FRM72770 
FRM72780 
FRM72790 
FRM72800 
FRM72810 
FRM72820 
FRM72830 
FRM72840 
FRM72850 
FRM72860 
FRM72870 
FRM72880 
FRM72890 

«••*••** «*»*«* »*FRM7 29 CO 
FRM72910 
FRM72920 
FRM72930 
FRM72940 
FRM72950 
FRM72960 
FRM72970 
FRM72980 
FRM72990 
FRM73000 
FRM73010 
FRM73C20 
FRM73C30 
FRM73040 
FRM73050 
FRM73060 
FRM73070 
FRM73080 
FRM73090 
FRM731C0 
FRM731I0 
AFRM73120 
BFRM73130 
CFRM73140 
DFRM73150 
FRM73160 
FRM73170 
FRM73180 
FRM73190 
FRM73200 
FRM73210 
FRM73220 
FRM73230 
FRM73240 
FRM73250 
FRM73260 
FRM73270 
FRM73280 
FRM73290 
FRM73300 
FRM73310 
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CLKN 



STO 

SYN 
ALS 
CLA 
ALS 
ORA 
NZT 
TOV 
LDQ 
RCT 
AXT 
AXT 
AXT 
TTR 



CLKRD ENTRY IN THE TABLE. 

RESTORE MACHINE CONDITIONS 

• 

2 TURN ON OVERFLOW LIGHT 

SPQ 

2 RESTORE +, Q. AND S 

LOGAC 

OVFL 

**l 

MQ 



** t 2 
**t4 



TWO 
FOUR 



CL1 

CL2 

CL4 

TRAD 

OVFL 

• 

SPQ 

LOGAC 

MQ 

END 

* FAP 

* DUMMY INPUT-OUTPUT ROUTINE 

* CHANGES PRINT STATEMENT TO 

* CHANGES READ STATEMENT TO R 
L8L DUMIO 

ENTRY (CSH) 

ENTRY (SPH) 

(SPH) CLA TWO 

TRA« $(STHM) 

(CSH) CLA FOUR 

TRA* StTSHM) 

OCT 200C000 

OCT 4CCCGCO 
END 

* LISTS 

* SYMBOL TABLE 

* LABEL 
CMAIN1/6 
C STRESS III 6 LINK CHAIN VERSI 

DIMENSION Y(6 9 6)»T(6t6)tQ(6 

COMMON U,T,Q,CHECK f NMAX, INOR 
1ISUCC,SYPA,NJ,NB,NDAT,ID,JF, 
2,NMEMV, IPSItNMR,NjR,ISODG»ND 
3JMIC,JMPC,JLD» JEXTN,MEXTN,LE 
4IDENS,NBNEW,FILL, 
5NAME,KXYZ,KJREL,JPLS,JMIN,MT 
6L0ADS, INPUT, KS.KMKSTtKSTDB, 
7KV,K33,LA2R ,LA2RT,NV ,NTP 
8G,I0FDG,LDNM,MEGA0,JEXT,JINT 
9,JL0AD,KATR,LEXT,KY0UNG,KSHE 

EQUIVALENCE (U(l),IU{l),Y(in 

IF(INORM)33,i5,33 

IFUS0LV-1)4G,36,75 

CALL PRERR(2> 

IF(IS0LV-1)36,36,35 

IF(IC0NT)36,10,36 

CALL PRERR(3) 

ISCAN*2 

CALL PHAS1A 



RESTORE INDEX REGISTERS 



FOR IBM MONITOR 
WRITE OUTPUT TAPE 2 
EAD INPUT TAPE 4 



FRM73320 
FRM73330 
AFRM7334Q 
FRM73350 
FRM73360 
FRM73370 
FRM73380 
FRM73390 
FRM734C0 
FRM73410 
FRM73415 
FRM73420 
FRM73430 
FRM73440 
FRM73450 
FRM73460 
FRM73470 
FRM73480 
FRM73490 
FRM735CO 
FRM73520 



GN 

,6),U(36),IU{36),SYP 

M,ISOLV,ISCAN,IIII»I 

NSQ,NCORD, IMETH,NLDS 
SQ,NDJ,SDJ»NPR,N8B,N 
XTN,JLC»NLOSI,IYOUNG 

YP,KPSI,MEM8, 
KATKA t KPPLS,KPMIN,KU 
,NSCR7,NSCR8,NSCR9 
,KUDBP,KMEGA,KPDBP,J 
R,KEXPAN,KDENS 



A(40>,FILLC5) 
MOD,ILINK, ICONT, 
,NFJS,NSTV 
FJS1,JJC,JDC, 
,ISHER, IEXPAN, 



V,KPPRI f KR,KMK, 

,NSCR10,KDIAG,KOFD 

TYP,MTYPl f KB,MLOAD 



15 
33 

34 
35 
36 

40 
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ISCAN'ISCAN 

GO TO (50,10),ISCAN 
50 ISUCC*ISUCC 

GO TO (70,60),ISUCC 
60 IF(IC0NT)36,1Q,36 

70 CALL CHAIN(2,A4) 
75 ISUCC=ISUCC 

GO TO (80,78), ISUCC 
78 CALL PRERR(5) 

GO TO 60 
80 IFUC0NT)85,82,85 
85 CALL PRER2(6,IC0NT,0) 

GO TO 40 
82 CALL PRERR(6) 
10 CALL STOPCL(ITIME) 

ITIME=ITIME/60 

CALL PRER2(4,ITIME,0.) 

GO TO 40 

END 

* LIST8 

* LABEL 

CPHAS1A VERSION 3 PHAS1A FENVES - LOGCHER - MAZZOTTA JAN L7, 1964 
SUBROUTINE PhASIA 

DIMENSION LA8L(12),BETA(85),SYSFIL(27),PRBFIL(3) ,CWF IL (49 ) ,U( 99) , 
LIU(2) 
DIMENSION B(6) 

COMMON U,IU,A,IA,LABL,BETA,K,ITABLE,J,NE,ITS,I8, IS, I L, INDEX, IN, 
1CHECK,NMAX,INORM,ISOLV,ISCAN,III,IMOD,JJJJ,ICONT,ISUCC,IMERG,TOP,N 
21,NL,NT,NREQ,TN,LFILE,TCLER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
3NJ,NB,NDAT,ID,JF,NSQ,NCQRD,IMETH,NLDS,NFJStNSTV,NMEMV,lPSl,NHR,NJR 
4,ISGDG,NDSG»NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JLD,JEXTN, 
5MEXTN,LEXTN,JLC,NLDSI,IY0UNG,ISHEAR,IEXPAN,IDENS,INNN,NLDG 

COMMON JTSTA8,PRBFIL, 
6NAME,KXYZ,KJREL, JPLS, JMIN,MTYP,KPSI,MEMB,LOADS,MODN,KS,KMKST,KSTDB 
7,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KS1,KS2,KS3,KS4,KS5,KS6,KS7, 
8KS8,KS9,K$iO,KDIAG,KOFDG,KAD,LQADN,MEGAO,JEXT,JINT,KU0BP,KMEGA, 
9KPDBP, JTYP,MTYPl,KB,ML0A0,JLOAO,KATR,LINT,KYOUNG,KSHEAR,KEXPAN 
COMMON KDENS,CWFIL 

EQUIVALENC£(U,IU,A,IA),(U(2),IU(2),LABL),(U{14),BETA) f (U(99),K,BK) 
F LIST1,LIST2,LIST4,LIST7,LIST8,LIST10,LIST11 
B B(1)=0000C0CG0001 
B B(2)=CC00CC0CC002 
B B(3)=CC00000G0004 
B e(4)=OC0000000010 
B B(6)=00000CCCC017 
FFLAG=0. 
CALL PRERR(l) 
C FIRST WORD 
C 

10 IX=0 
J = 
M=l 

11 Ii=MATCH(LISTl,K,M) 

GO TO (12,14,97,96, 15, 16), II 

12 IX=IX+1 

IF( IX-12) 13,10,10 

13 M = 

GO TO 11 

14 J = K 

IFUTABLE-1) 98,100,200 
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15 K1=K 

60 TO 17 

16 IFU1-4) 17,17,95 

17 ITA8LE=0 

GO TO ( 100, 200, 300, 400, 500, 600, 700, 800, 900 t 1000,1100, 1200, 1300, 140 
10, 1500, 1600, 1700, 1800,1900, 2000), Kl 
C 

C MEMBER 

C SECOND WORD FOR HEMBER 
100 CALL PEMDAT 

NE = NE 

GO TO (10, 48, 87, 9 1,92, 96, 97, 98, 99, 85 ,95 ,94, 90 ),NE 
C 

C SECOND WORD FOR JOINT 
200 CALL JTDAT 

NE = NE 

GO TO (10, 48, 90, 9 1,92, 93, 98, 99, 96, 97 ),NE 
C 
C FIRST WORD NUMBER 

300 I2=MATCH(LIST4,K ,4) 

GO TO (99, 98, 97, 96, 301, 95), 12 

301 K2 = K 
I3=MATCH(0,K ,2) 

GO TO (99, 302, 97, 96, 94, 95), 13 



302 


K3=K 


304 


GO TO (305,10),ISCAN 


305 


K4 = l 




CALL SIZED(K2,K3,K4) 


C 
C 
C 
C 


IF(K4-2) 10,90,90 


FIRST WORD TABULATE 


READ WOROS 


400 


FLAG^O.O 


401 


I2=MATCH(LIST2,K,0) 




GO TO (403,98,97,96 ,402, 95), 12 


402 


IF(K-5)420, 1720, 430 


C 


RESULTS REQUESTED 


430 


IF(K-6)401,420,401 


B420 


FLAG*FLAG+B(K) 




GO TO 401 


C 


PROCESS REQUESTS 


403 


GO TO (404,10),ISCAN 


404 


IFUCONT) 4041,405,4041 


4041 


IRPR=1 




CALL ALOCAT(LOADS,JLC) 




GO TO (91 ,411,410,415), IMOD 


C 


NORHAL 


405 


IF(JLC)410,407,409 


B407 


FFLAG=FFLAG+FLAG 




GO TO 10 


409 


CALL ALOCAT(LOADS,JLC) 


410 


JS=LOADS+JLC 




JT=IU(JS)+1 


8 


U(JT)=U(JT)+FLAG 




GO TO 421 


C 


CHANGE 


411 


JS=LOADS+JLC 




JT=IU(JS>+1 


B 


U (JT)=(U(JT) #777777700000 )+FLAG 
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GO TO 421 
C DELETE 
415 JS=LOADS+JLC 

JT*<IU(JS) + 1 
8 UiJT)*-C-CUf JT))+FLAG} 
421 CALL RELEAS(LOADS,JLC) 

GO TO 10 
C 
C LOADING 

500 GO TO (524,10),ISCAN 
524 IF(ICONT) 501,502,501 

501 GO TO (91,506, 511, 506), IMOD 

502 IF(NLOS) 503,86,503 

503 JLD=JLD+1 
IFULD-NLDS) 504,504,85 

504 CALL DEFINE(LQAOS,JLO, 24, 0,0,1) 
CALL ALOCAT(LOADS,JLD) 
NLDG=NLDG+l 

L=L0A0S+JLD 
IK=1U(L)+1 
8 U( IK)=U(IK)+FFLAG-H00OO0QGOCC0 

IU(IK+1)=10 
I2-MATCH(LIST1,K,0) 
IFU2-5)513,520,513 

520 IF(K-19)513,521,513 

521 lUUK)*lU(IK) + 32768 
513 IK=IK+1 

DO 505 IX=1,12 

M=IK+IX 

NM=KBUF+IX 

505 IU(M)=IU(NH) 
JLC'JLD 

530 CALL RELEAS(LOADS,JLC> 
GO TO 10 

506 I2=MATCH(0,K,2) 
IFU2-2) 85,507,85 

507 JLC-K 
IF(IM0D-2)5Q8, 10,508 

508 CALL AL0CAT(L0A0S,JLC) 
L=L0A0S+JLC 
IK«IUCU*l 

CALL UPADP(UUK),LTYP,NLO,A) 

IU(IK)=0 

lF(LTYP-2)522,523,522 

522 DO 510 IX=i,NLD 
M=LOADS*JLC 
H=IU(H)^14+IX 
IF(IUCM)) 509,510,509 

509 CALL UPADPUU(N),INDEX,IPL,JA) 

GOTO (5091, 5092, 5092, 5092, 5091), INDEX 

5091 CALL ALOCAT(JLOACJA) 
CALL RELEASULOAD,JA) 
LL=JLOAD+JA 

GO TO 5093 

5092 CALL ALOCAKMLOAO, JA) 
CALL RELEASCWLGAD.JA) 
LL=WLOAD+JA 

5093 LN=IUUL) + 2 
IU(LM)*IU(LH)-1 
LM=IU(LL)+IPL 
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IU(LM)=0 

510 CONTINUE 

523 CALL 0EFINE(LOADS, JLC,1,0,0,1) 
NLDG=NLDG-1 
GO TO 530 

511 JLD=JLD+1 
IF(JLO-LEXTN) 504,504,512 

512 CALL SIZED(4,JL0,2) 
GO TO 504 

C 

C STRUCTURE 

C 

C STORE PROBLEM TITLE 

600 CALL RSCLCK 

CALL START(5,301,NMAX) 

IMOD^i 

ISCAN^l 

IS0LV*1 

I*MATCH(K8UF,0,5) 

CALL DEFINE(NAM£, 12, 0,0,1) 

CALL ALOCAT(NAME) 

00 601 1=1,12 

JS=NAME*I 

JT=KBUF+l 

601 U(JS)=UUT) 

CALL RELEAS(NAHE) 
C INITIAL CHECK 
B CHECK=0000067741G0 

GO TO 10 
C 

C METHOD 
C 
C READ SECOND WORD AND SET IMETH 

700 I2=MATCH(LIST7,K,0) 

GO TO (99,98,97,96,701,951,12 

701 GO TO (96, 702, 703, 96, 96), K 

702 IHETH^l 
GO TO 704 

703 IMETH*2 
C TESTS 

704 GO TO (706,90,90,90),IH0D 
B706 CHECK=CHECK+00000OQ0OQ40 

GO TO 10 
C 

C TYPE 
C 

C READ TWO WORDS AND FIND TYPE, SET NCORD,JF 
800 I2 = MATCH(LISTU,K,0) 

GO TO (99, 98, 97, 96, 801, 95), 12 
801 ISOOG = 

GO TO (802, 803, 96, 96, 96), K 

802 JT=0 
NC0RD=2 
GO TO 804 

803 JT=3 
NC0RD=3 

804 1 3«MA TCH ( L I ST 1 1 , K , ) 

GO TO (99,98,97,96,805,95),I3 

805 GO TO (96, 96, 806, 807, 808), K 

806 JT=JT+1 
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ISODG = 1 
GO TO 809 

807 JT=JT+2 
GO TO 809 

808 JT=JT+3 

809 GO TO (810, 811, 811, 811,812, 89), JT 

810 JF=2 

GO TO 813 

811 JF=3 

GO TO 813 

812 JF = 6 
C TESTS 

813 GO TO {820, 814,90, 90), IMOD 

C CHANGE TEST TO BE INSERTED HERE 

814 GO TO 820 

820 GO TO (821,10),ISCAN 

821 ID=JT 

IF (ISODG) 823,822,823 

822 ISODG = JF 

823 NSQ=JF»JF 

B CHECK=CHECK+G00000000020 

GO TO 10 
C 

C MODIFICATION 
C 
C READ THIRD WORD, TEST, CALL RESTORING SUBROUTINE 

900 I2=MATCH(LIST1G,K,4) 

GO TO (99, 98, 97, 96, 901, 95), 12 

901 GO TO (903,10),ISCAN 

903 GO TO (904, 905, 96), K 
C FIRST-RESTORE 

904 CALL RESTOR 
IRST=1 

GO TO 906 
C LAST-REALLOCAT 

905 CALL ALOCAT(KXYZ) 
CALL ALOCAT(JPLS) 
CALL ALOCAT(JMIN) 
CALL ALOCAT(KPSI) 
CALL ALOCAT(JTYP) 
CALL ALOCAT(MLOAD,0) 
CALL ALOCAT(JLOAD,0) 
CALL ALOCAT(LOADS,0) 
IRPR=0 

IRST=C 
IRLD^O 
C STORE NAME 

906 I=MATCH(KBUF,0,5) 

CALL DEFINECMGDN, 12, 0,0,1) 

CALL ALOCAT(MODN) 

DO 907 1=1,12 

JS=MODN+I 

JT=KBUF+I 
907 U(JS)=U(JT) 

CALL RELEAS(MODN) 

IS0LV=1 

GO TO 10 
C 

C MODIFIERS 
C 
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C CHANGE 
1000 IM0D=2 

GO TO 10 
C ADDITION 
1100 IM0D=3 

GO TO 10 
C DELETION 
1200 IM0D=4 

GO TO 10 
C 

C SOLVE 
C 
C READ THIRD WORD 

1300 IF(ISGLV-l) 13l0,1311tl310 

1310 ISUCC=2 

GO TO 1308 

1311 I2=MATCH(LIST10,K,4) 

GO TO (1302,1301,1301,1301,1305,1301), 12 
C ERROR INTERPRETED AS BLANK 

1301 CALL PRERR(7) 

1302 GO TO (1303,1308), ISCAN 

1303 ICONT=0 

1304 CALL PHAS1B 
1308 RETURN 

C SOLVE THIS PART 

1305 GO TO (1301, 1301, 1306), K 

1306 IC0NT=IC0NT+1 

GO TO (1304,10), ISCAN 
C 

C STOP 
C 

1400 CALL EXIT 
C PROBLEM FINISHED, RETURN AND END 
1500 ISCAN=2 

GO TO 1308 
C OUTPUT MODE 
1600 IMOD = 2 
GO TO 10 
C SELECTIVE PRINTING 

1700 12 = MATCH(LIST2,K,0) 

GO TO (10, 1704, 97, 96,1701, 17C0), 12 

1701 IF(K-5)1702, 1720,1700 

1702 K2=5-K 
IF(KPPRI)17C0, 88,1700 

C PRINT DATA 

1720 GO TO (1721, 10), ISCAN 

1721 CALL DPRINT 
CALL PRERR(l) 
GO TO 10 

1704 GO TO (1703,1700), ISCAN 

1703 CALL SELGUT(JLC,K2,K) 
GO TO 1700 

C CONSTANTS 

1800 IF(IMCD-4)18C7,90,90 

1807 IM=0 

1808 12 = MATCH(LIST8,K,0) 

GO TO (10,1830,1801,96, 1802, 1808), 12 

1801 VALUE = BK 
GO TO 1808 

1802 GO TO (1803, 1804, 1806, 1806, 1806, 1806), K 
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1803 U(IJ) * VALUE 
GO TO 1808 

1804 GO TO (1841,1808), ISCAN 
1841 CALL ALOCAT(UUM)) 

CALL RELEAS(UUH)) 
DO 1805 I * 1,HEXTN 
IL - IUCINI4I 

1805 U(IL) = U(IJ) 
IU(IJ) =1 

GO TO 1808 

1806 IJ « K + 188 
IM * IJ+57 

CALL DEFINE(U(IM),MEXTN,G,0,1) 
GO TO 1808 

1830 IF(IM) 98,98,1831 

1831 GO TO (1832, 1808), ISCAN 

1832 IF(K-MEXTN) 1835,1835,1833 

1833 IFUCONT) 1834,1836,1834 

1834 CALL SIZED(2,K,2> 

CALL CEFINE(U(IM),MEXTN, 0,0,1) 

1835 CALL ALOCAT(UUM)) 
CALL RELEAS(U(IM>) 
IU(IJ) = 1 

IL = IUCIM)4K 
UUL) = VALUE 
GO TO 1808 

1836 CALL PRERR(31) 
GO TO 1808 

C COMBINATION LOADING 
1900 IF(JLC) 1912,86,1912 
1912 GO TO (1901,10), ISCAN 
1901 CALL ALOCAT(LOADS,JLC) 
L=LOADS+JLC 
IK=IU(L)+1 

CALL UPADP(U(IK),LTYP,NLD,A) 
IF ( LTYP-2)84,1902,84 

1902 IF(ICONT)1925,1903t 1925 

1903 IT = 
18 = 

1907 I2=MATCH(LIST11,K,0) 

GO TO (1920, 1904, 1908, 1907,1907, 1907), 12 

1904 IF(JLC-K) 1950,1950,1953 

1950 CALL PR£R2(18,JLC,K) 
IF(IB-IT) 1951,1951,1952 

1951 I2=MATCH(LIST11,K,0) 

GO TO (1920,1904,1907,1951,1951,1951), 12 

1952 I8=IB-1 

GO TO 1907 

1953 IT=IT+1 
XL* IT 

1911 NLS=IU(IK+1) 

IF(2*(NLD+IL)-NLS)1906,1906,19G5 

1905 NLS=NLS+10 
IU(IK+1)=NLS 

CALL CEF INE ( LOADS, JLCNLS+ 14, 0,0,1) 

L=LOADS+JLC 

IK=IU(L)+l 

IF( IB- IT ) 1906 t 1906 ,1909 

1906 IS=IK+12+2*(NL0+IT) 
IU(IS)=K 
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GO TO 1907 

1908 I8=IB+l 
IF(IB-IT)1909, 1909,1910 

1909 IS=IK+13+2«(NLD*IB) 
UUS)=8K 

GO TO 1907 
1920 IU(IK)=IU(IK)+IT 
1921 CALL RELEASUOADStJLC) 
GO TO 10 

1910 IL=IB 

GO TO 1911 

1925 GO TO (91, 1937, 1903, 1937), IMOD 
1937 HOLO=Q 

1926 I2*MATCH(LIST11,K,0) 

GO TO (1921, 1927,1933,1926, 1926,1926), 12 

1927 DO 1928 1=1, NLD 
IT=IK*12+2«I 

IF (K-IU( IT)) 1928, 1939, 1928 

1928 CONTINUE 

1939 IF(IM0D-2)91, 1929,1932 

1929 IF(H0LD)193i, 1930, 1931 

1930 IH0LD=2 

GO TO 1926 

1931 IH0LD=1 
UUT+1)=H0LD 
GG TO 1926 

1932 IUUT)=0 
GO TO 1926 

1933 IFUH0L0-2U935, 1934, 1935 

1934 U(IT+1)=BK 
GO TO 1926 

1935 H0LD=8K 

GO TO 1926 
C CHECK JOINT STABILITY 
C SET PARAMETER 

2000 JTSTAB=l 

IF(ICONT) 2001,10,2001 

2001 GO TO (91, 10, 10, 2002), IMOD 

2002 JTSTAB=0 
GO TO 10 



c 




C 


ERROR MESSAGES PRINTED WITH SUBROUTINE PRERR 


99 


1 = 14 




GO TQ(50,50,50,10),IMOD 


98 


1 = 9 




GO TO 50 


97 


1 = 12 




GO TO 50 


96 


CALL PRER2(9,0,BK) 


48 


1 = 7 




GO TO 50 


95 


1 = 8 




GO TO 50 


94 


1=10 


B50 


CHECK=CHECK»777777773777 


51 


CALL PRERR(I) 




GO TO 10 


93 


1 = 30 


B 


CHECK=CHECK#777777677777 




GO TO 51 
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92 1=31 
8 CHECK=CHECK*777777577777 
GO TO 51 
91 1=11 

GO TO 52 
90 1=29 
B52 CHECK=CHECK*777777737777 
GO TO 51 
89 1=13 
B CHECK=CHECK*777777767777 
GO TO 51 
86 1=18 
B CHECK*CHECK«777777377777 
GO TO 51 
85 1=32 
B CHECK=CHECK«77 7777757777 
GO TO 51 

87 1=33 

B CHECK=CHECK*777777777577 
GO TO 51 

88 1=21 

GO TO 51 
84 1=28 
B CHECK=CHECK«7777 7775777 7 
GO TO 50 
END 
♦ FAP 

L8L LISTS 

COUNT 20 

ENTRY LIST1 

ENTRY LIST2 

ENTRY LIST3 

ENTRY IIST4 

ENTRY LIST5 

ENTRY LIST6 

ENTRY LIST7 

ENTRY LIST8 

ENTRY LISTIO 

ENTRY USUI 

LIST1 DEC 20 

BCI 9,HEMBER0j0INTNUMBERTA8ULALOADINSTRUCTMETHODO0TYPEMODIFI 

BCI 9,CHANGEADDITIDELETI0$0LVEGQST0PFINISHSELECT0PRINTC0NSTA 

BCI 2tC0MBIN0CHECK 

LIST2 DEC 8 

BCI 8 f DISPLADISTORREACTIF0RCES00DATA000ALLMEMBER0JOINT 

LIST3 DEC 6 

BCI 6,CC0RDIRELEAS0L0ADS00L0ADDI$PLANUHBER 

LIST4 DEC 4 

BCI 4, JOINTSMEMBERSUPPORLOADIN 

LIST5 DEC 37 

BCI 9tGG000X00000Y0G0C0ZOFORCEMOMENTDISPLAROTATIOOOQOAOGOOQI 

BCI 9»00OEND0STARTCONCENUNIFORLINEAR0OOGOPOG00OWO000NA0GGCW8 

BCI 8 f CO00LAO0OOLBOO00GS000COFSUPPORO0FREEO0AREAINERTI 

BCI 8,0CC00LLENGTHOSTEELOOBETAO000AX0000AYO0O0AZ00OOIX 

BCI 3tCG00IYO000IZDISTOR 

LIST6 DEC 16 

BCI 9,00FROH00GOESNUMBERINCIDEPROPERRELEASCONSTRDISTORC0L0AD 

BCI 7,GLOADSPRISMASTIFFNFLEXIBVARIABOSTEELO0OEND 

LIST7 DEC 5 

BCI 5,PRISMASTIFFNFLEXIB0STEELVARIAB 
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LIST8 DEC 6 

BCI 6,000ALL000BUT0000GE00Q0QGCQ0CTEDENSIT 
LIST10 DEC 3 

BCI 3,QFIRST00LAST00PART 
LIST11 DEC 5 

BCI 5,0PLANE0SPACEQTRUSSGFRAM£G0GRID 

ENO 

* LIST8 

* LABEL 

CMEMDAT OF PHAS1A STRESS III FENVES-LOGCHER-MAZZOTA NOV. 19,1963 

SUBROUTINE MEMOAT 

DIMENSION LABL(12),B£TA(85),SYSFIL(27),PRBFIL(6),CWFIL(49),U(99) , 
1IU<2) 

COMMON U,IU,A,IA,LABL,BETA,K,ITABLE,J,NE,ITS,IB,IS,IL,INDEX,IN, 
1CHECK,NMAX,INQRM,IS0LV,ISCAN,III,IM0D,JJJJ,IC0NT,ISUCC,IMERG,T0P,N 
21,NL,NT,NREG,TN,LFILE,TOLER,IPRG, IRST , IRLD, IRPR, SYSF IL, 
3NJ,NB,NDAT,ID,JF,NSQ,NCORD,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR 
4,IS0DG,NDSG,NDJ, IPDBP, IUDBP,N8B, NFJS1 , JJC, JDC, JM IC , JMPC, JLD, JEXIN, 
5MEXTN,LEXTN,JLC,NLDSI,IYOUNG,ISH£AR,IEXPAN,IDENS,PRBFIL, 
6NAME,KXYZ,KJREL,JPLS,JMIN,MrYP,KPSI,MEM8,L0ACS,MGDN,KS,KMKST,KSIDB 
7,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KS1,KS2,KS3,KS4,KS5,KS6,KS7, 
8KS8,KS9,KS10,KDIAG,K0FDG,KAD,L0ADN,MEGA0,J£XT,JINT,KUDBP,KMEGA, 
9KPDBP,JTYP,MTYP1,KB,ML0AD,JLGAD,KATR,LINT,KYGUNG,KSHEAR,KEXPAN 

COMMON KOENS,CWFIL 

EQUIVALENCE(U,IU,A,IA),(U(2),IU(2),LABL),(U(14),BETA),(U(99),K,8K) 

DIMENSION IHGL0(12),HQLD(64) 
F LIST5,LIST6,LISTU 

NE = 1 

IFUTABLE-1) lC0tll5,96 
ICO I2=MATCH(LIST6,K,0) 

GO TO (1281,101,97,96, 102, 104), 12 

101 J=K 

GO TO 100 

102 IF(K-3) 103,100,103 

103 K2=K 

104 IFU)114,105,114 

105 ITABLE=1 
JIB=0 
N$S=0 

KN = K2 

GO TO ( 99, 99, 99, 10, 106 ,10, 10, 10, 10, 10, 158, 158, 158, 158, 158, 10 ),K2 

106 DO 107 1=1,12 

107 IH0LD(I)=0 

DO 108 1=1,64 

108 F0L0tI)=0. 
JH0LD=G 

GO TO 100 

114 JIB=0 
NSS=0 
KN = K2 

115 IFU-MEXTN) 118,118,116 

116 IF(ICONT) 92,92,117 

117 CALL SIZED(2,J,2) 

118 GO TO (120, 120, 96, 120, 109, 130, 13 1,150, 15 1,1 51, 158, 158, 158, 158, 158, 
1 154), KN 

109 I2=MATCH(LI$T6,K,0) 

GO TO (99,98,97,96,110, 158), 12 

110 K2=K 

IF(K-IO) 96,96,158 
C MEMBER INCIDENCES 
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120 


I3=MATCH(0,K3,2) 




IFU3-2) 128,121,96 


121 


I3*MATCH(0,K4,2) 




IFU3-2) 99,122,96 


122 


GO TO (123,10),ISCAN 


123 


IF(ICONT) 126,124,126 


124 


JMIOJMIC+1 


125 


U*JPLS*J 




IUUJ)=K3 




IJ=JMIN+J 




IU(IJ)=K4 




60 TO 10 


126 


IRST=i 




GO TO (91,125, 124, 127), 1M0D 


127 


JMIOJKIOl 




JMPC*JKPC-l 




CALL ALOCAT(MTYP) 




IJ=MTYP+J 




IUIIJ)-*0 




CALL RELEAS(MTYP) 




CALL 0EFINE(MEMB, J, 0,0,0,0) 




GO TO 10 


1281 


IF(J) 128,10,128 


128 


GO TO (99,99,99,127), IMOD 


C 


MEMBER RELEASES AND CONSTRAINTS 


130 


IX*1 




GO TO 132 


131 


IX=2 


132 


IG=2 




CALL READ(IG,J) 




IF(ITS) 98,13-20,98 


1320 


GO T0(133,10),ISCAN 


133 


IF(IG) 134,48,134 


134 


IF(K2-6) 97,136,135 


135 


IA=IA«4096 


136 


CALL ALOCAT(MTYP) 




CALL RELEAS(MTYP) 




IF(IC0NT)138,137,138 


137 


NMR=1 




IJ*MTYP+J 


6 


L(IJ)*U(IJ)+A 




GO TO 10 


138 


IRST=1 




GO TO (91, 145,137, 146), IMOD 


145 


IF(IX-l) 99,143,144 


8143 


U(IJ)=U(IJ)»770000777777 




GO TO 137 


B144 


U(IJ)=U(IJ)*C07777777777 




GO TO 137 


146 


IJ=MTYP+J 


6 


UIIJ)*-(-(U< IJH+A) 




GO TO 10 


C 


MEMBER DISTORTIONS AND LOADS 


150 


INDEX=4 




GO TO 152 


151 


INDEX=2 


152 


IG*3 




CALL READ(IG,J) 




GO TO (153, 10), I SCAN 


153 


IF(IG) 10,48,10 
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154 


INDEX = 3 




IF (ITABLE-1) 155,152,155 


155 


13 = MATCH(LIST6,K,C) 




GO TO 152 


C 


HEMBER PROPERTIES 


158 


IHL0T=K2-10 




IG=1 




GO TO (160,170,170,180,190), IMIOT 


160 


CALL READ(IG,J) 




IF(ITS) 98,1600,98 


1600 


IFUG-4) 162,161,162 


161 


K2 = 15 




GO TO 158 


162 


N = 6 




GO TO (163,10), ISCAN 


163 


IF(IG) 164,48,164 


164 


IFUTA8LE-1) 1665,165,85 


165 


IF(J) 167,166,167 


166 


DO 1651 1 = 1, IB 


1651 


HGLD(I)=BETA(I) 




IF(IL) 1654,1653,1654 


1653 


IL=12 


1654 


DO 1652 1 = 1, IL 


1652 


IH0LD(I)=LA8L(I) 




JI8=IB 




GO TO 10 


1665 


JIB=0 


167 


CALL DEFINE(WEKB,J,N,0,0,1) 




CALL ALOCAT(HEHB,J) 




L=MEMB+J 




IF(JIB) 1671,1675,1671 


1671 


DO 1674 1 = 1, JIB 




IF(IH0LD(I)-7) 1672,1673,1673 


1672 


IJ=IHOLO(I)+IU(L) 




U(IJ)=HOLO(I) 




GO TO 1674 


1673 


IJ=KPSI+J 




U(IJ)=HOLD(I) 


1674 


CONTINUE 


1675 


IF(IB) 1676,199,1676 


1676 


DO 1679 1 = 1, IB 




IF(LA8L(I)-7) 1677,1678,1678 


1677 


IJ=LA8L(I)+IU(L) 




U(IJ)=BETA( I) 




GO TO 1679 


1678 


IJ=KPSI+J 




U(IJ)=BETA(I) 


1679 


CONTINUE 




GO TO 199 


170 


N=NSQ 




00 171 KKI=1,NSQ 




I3=MATCH(LIST5,K,0) 




GO TO (179, 98, 171, 170,172, 172), 13 


171 


BETA(KKI)=BK 


172 


I4=MATCH(0,K,0) 




GO TO (179,98,173,96,94,95), 14 


173 


IF(J) 174,175,174 


174 


L=KPSI+J 




U(L)=BK 




GO TO 170 
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175 


H0LD(1)=BK 




JH0LD=2 




GO TO 170 


179 


IFU) 1793,10,1793 


1793 


CALL DEFINE<#EHB,J,NSQ,0,0,i) 




CALL AL0CAT1MEMB, J) 




L=MEMB+J 




DO 1791 1=1, NSC 




IJ=IUU) + I 


1791 


U(IJ!»BETA(I) 




IFUHGLD-2) 199,1792,199 


1792 


L=KPSI+J 




UCL)=H0LD(1) 




GO TO 199 


C 


STEEL SECTION 


C 


VARIABLE SECTION 


180 


IF(NSS>185,184,185 


184 


I3=MATCH(LIST11,K,2) 




IF(I3-2)187,181,94 


187 


IF(£TABLE)99,99,10 


181 


IF(J) 1861,186,1861 


186 


NSS=1 


1861 


NS=K 




I3=MATCH(LIST11,K,0> 


185 


N=7*NS 




IFU) 182,160,182 


182 


CALL DEFINE<KEKB,J,N,0,0,1) 




CALL ALOCAT(KEMB,J> 




L=MEMB4J 




IF CITABLE- 1) 183,1821,183 


1821 


IFtJIB) 1822,1831,1822 


1822 


NH=JIB/NS 




IF{NM-7)1828,1828,87 


1828 


1=0 




IFUHGLD(l>-8) 1824,1823,1824 


1823 


IJ=KPSI+J 




UtlJ)=HOLDU> 

1 = 1 

IF(NM) 1841,1831,1841 


1824 


1841 


DO 1825 IJK=1,NS 




DO 1825 KK=1,NH 




IIT=KK+I 




IJ*IH0L0(IIT) + IU(L) + 7HIJK-l) 




IK=KK+NM*C IJK-1) +1 


1825 


U(IJ)=H0LD(IK) 




IFU) 1831,1826,1831 


1826 


IF(JIB-NM«NS) 1831,1831,1827 


1827 


IJ=KPSI+J 




U(IJ)=HOLD(JIB) 




GO TO 1831 


183 


JIB=0 


1831 


CALL READ<IG,J> 




IF (ITS) 98,1830,98 


1830 


GO T0(1832,10),ISCAN 


1832 


IF(IG) 1833,48,1833 


1833 


IFUB) 1834,199,1834 


1834 


NM*I8/NS 




IF(NM-7)1829, 1829,87 


1829 


1 = 




IF(LABL(l)-8) 1836,1835,1836 
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1835 


IJ=KPSI+J 

U(IJ)=BETA(1) 

1 = 1 

IF(NH) 1842,199,1842 




1836 




1842 


DO 1837 IJK=1,NS 

DO 1837 KK=l,Nf 

IIT=KK+I 

IJ = LABLUIT) + IUU>+7«UJK-i) 

IK=KK+NM*( IJK-D+I 




1837 


U(IJ)=BETA(IK> 
IFil) 199,1838,199 




1838 


IFCIB-NK*NS) 199,199,1839 




1839 


IJ=KPSI+J 
IB=IB 

UUJ)=8ETAUB> 
GO TO 199 




190 


IG=1 

CALL READ(IG,J) 

PRINT 191 

GO TO 199 




191 


F0RMAT(35H STEEL SECTIONS CANNOT YET BE READ.) 


199 


IRST=1 

GO T0U991, 1992, 1991, 90), IMOC 




1991 


JMPC=JHPC+1 




1992 


IF(J) 1993,10,1993 




993 


CALL RELEA${KEHB,J> 

CALL ALOCAT(MTYP) 

L=MTYP+J 

CALL PACKW(A,0,U(L),IMLOT,N,0) 

U(L)=A 

CALL RELEAS(MTYP) 

L=KPSI+J 

IF(U(L))1994,10,1994 




1994 


IPSI=1 




10 


RETURN 




48 


NE = 2 

GO TO 10 





87 NE=3 

GO TO 10 

91 NE=4 

GO TO 10 

92 NE=5 

GO TO 10 

96 NE=6 

GO TO 10 

97 NE=7 

GO TO 10 

98 NE=8 

GO TO 10 

99 NE=9 

GO TO 10 
85 NE=10 

GO TO 10 
95 NE»ii 

GO TO 10 
94 NE=12 

GO TO 10 
90 NE=13 

GO TO 10 

END 
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* LIST8 

* LABEL 

CJTDAT OF PHASIA STRESS III FENVES-LOGCHER-MAZZOTA NOV. 19,1963 

SUBROUTINE JTDAT 

DIMENSION LABL(12),BETA(85),SYSFIL(27),PRBFIL(6) ,CWF IL(49 ) ,U(99) , 
1IU(2) 

COMMON U,IU,A,IA,LABL,BETA,K,ITABLE,J,NE,ITS,IB, IS, IL , INDEX, IN, 
1CHECK,NMAX,IN0RM,IS0LV,ISCAN,III,IMGD,JJJJ,IC0NT,ISUCC,IMERG,T0P,N 
21,NL,NT,NREQ,TN,LFILE,T0LER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
3NJ,NB,N0AT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR 
4,IS0DG,NDSQ,NDJ,IPDBP,IU0BP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JLD,JEXTN, 
5MEXTN,LEXTN,JLC,NLDSI»IY0UNG,ISHEAR,IEXPAN,I0ENS,PRBFIL, 
6NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ADS,M0DN,KS,KMKST,KSrDB 
7,KATKA,KPPLS»KPMNS,KUV,KPPRI,KR,KSAVE,KS1,KS2,KS3,KS4,KS5,KS6,KS7, 
8KS8,KS9,KS10,KDIAG,KOFOGjKAO,LOAON,MEGAO,JEXT,JlNT,KUDBP,KMEGA, 
9KPD6P,JTYP,MTYPl,KB,MLOAD,JL0AD,KATR,LINT,KY0UNG,KSHEAR,KEXPAN 

COMMON KDENS,CWFIL 

EQUIVALENCE(U,IU,A,IA>,{U(2),IU(2),LABL),(U(14),BETA),(U(99),K,BK) 
F LIST3 

NE=1 

IF(ITABLE-i) 200,96,206 

200 I2*MATCH(LIST3,K,0) 

GO TO (101,201,97,96,202,204), 12 
101 GO TO (99,99,99,2170),IM00 

201 J=K 

GO TO 200 

202 GO TO (203, 203, 203, 203, 203, 200), K 

203 K2=K 

204 IF(J) 93,205,206 

205 ITABLE=2 
GO TO 10 

206 IF(J-JEXTN) 209,209,207 

207 IFCICONT) 93,93,208 

208 CALL SIZED(1,J,2) 

209 GO TO (210, 220,230, 230, 250, 96), K2 
C 

C JOINT COORDINATES 

210 IG=1 

CALL READ(IG,J) 
IF(ITS) 98,2110,98 
2110 L=JTYP+J 

IF(ICONT) 216,211,216 

211 IF(IS-l) 212,212,214 

212 JJC*JJC+1 

213 IU(L)«1 

GO TO 2151 

214 J0C=JDC+1 

215 IU(L)=2 

C STORE COORDINATES 

2151 IF(3 -IB) 2152,2152,2153 

2152 N=3 

GO TO 2154 

2153 N=IB 

2154 IJ=KXYZ+3*(J-i) 
IF(IB)10,10,2156 

2156 DO 2155 1*1, N 
JT*IJ+LABL(I) 

2155 U(JT)*BETAU) 
GO TO 10 

216 IRST=1 
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GO TO (91,2161,211,2171), IMOD 

2161 IFUS) 2162,2151,2162 

2162 IF(IUCL)-IS) 2163,2151,2163 

2163 IF(IS-l) 2173,2173,2165 
2165 JJC=JJC-1 

GO TO 214 
2170 L=J+JTYP 

2171 IFUU(L)-l) 2173,2172,2173 

2172 JJC=JJC-1 
GO TO 2174 

2173 JDC=JDC-1 

CALL ALOCAT(KJREL) 

IJ=KJREL+1 

NR = 5«IUUJ) 

DO 2177 IK=1,NR,5 

*=IK+IJ 

IF(IU(«)-J) 2177,2178,2177 

2177 CONTINUE 
GO TO 2174 

2178 IU(M+1)=0 

2174 CALL RELEAS(KJREL) 

GO TO (91, 212, 91, 2179), IMOD 

2179 L=JTYP+J 
IU(L)=3 

00 2175 N=l,3 
IJ=KXYZ+3«(J-1)+N 
2175 UUJ)=0. 
GO TO 10 



C 


JOINT RELEASES 


220 


IG = 2 




CALL READ(IG,J) 




IFUTS) 98,2200,98 


2200 


GO T0(22l,10),ISCAN 


221 


IF(IG) 222,48,222 


222 


IF(IC0NT)227,223,227 


223 


NJR=1 




CALL ALOCAT(KJREL) 




IJ=KJREL+1 




NR=IU(IJ) 




IMR*5*NR 




IF(NR) 2232,2232,2231 


2231 


CO 2291 IK*1 V IKR«5 




MIK+IJ 




IF(IUCK)-J) 2291,224,2291 


2291 


CONTINUE 


2232 


IUUJ)=NR + 1 




M=5«NR+6 




CALL DEFINE(KJREL,M, 0,0,1) 




M-KJREL+5«NR+2 




IUCM)=J 


B224 


U(M+1)=U(M+1)+A 




CALL RELEAS(KJREL) 




IF (IB) 10,10,226 


226 


DO 225 fXM*IB 




NM-W+IX+1 


225 


U<NM)=8ETA<IX) 




GO TO 10 


227 


GO TO (91,228,223,228), IMOD 


228 


CALL ALOCAT(KJREL) 
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CALL RELEASCKJREL) 

IJ*KJREL+i 

NR^IUUJ) 

00 2285 IX*1,NR 

M-KJREL+5«IX-3 

IFUU(M)-J) 2285,2286,2285 

2285 CONTINUE 
GO TO 90 

2286 IFUMQD-2) 90,2281,229 
2281 IU(M+1)=0 

NJR = 1 

GO TO 224 
8229 U{M+1)*-(~<U(M+1))+A) 

GO TO 10 
C JOINT LOADS 

230 INDEX=1 

231 IG = 3 

CALL READUG,J) 

GO TO (232, 10), I SCAN 

232 IFUG) 10,48,10 

C JOINT DISPLACEMENTS 
250 IN0EX=5 

GO TO 231 
10 RETURN 
48 NE=2 

GO TO 10 

90 NE-3 

GO TO 10 

91 NE=4 

GO TO 10 
93 NE=6 

GO TO 10 

96 NE=9 

GO TO 10 

97 NE=10 

GO TO 10 

98 N£=7 

GO TO 10 

99 NE=8 

GO TO 10 

END 
« LIST8 
• LABEL 
CDPRINT SUBROUTINE FOR PRINTING DATA LOGCHER MAZZOTTA NOV) 1963 

SUBROUTINE DPRINT 

D I HENS ION LABL(12),BETA(86),SYSFIL{27>,PRBFIL<6),CWFIL149),U(2), 
1IU(2) 

COMMON U, I U, A, I A, L ABL, BETA, I TABLE, J, NE, ITS, IB, IS, I L, INDEX, IN, 
1CHECK,NMAX,IN0RM,ISGLV, ISCAN, 1 1 1 , IMOD, JJ JJ, ICONT, I SUCC, IMERG, TOP,N 
21,NL,NT,NREQ,TN,LFILE,T0LER,IPRG,IRST, IRLD, IRPR, SYSFIL, 
3NJ,NB,NDAT,ID,JF,NSQ,NCOR0,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR 
4,IS00G,NDSC,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,J0C,JMIC,JMPC,JLD,JEXTN, 
5MEXTN,LEXTN,JLC,NLDSI,IY0UNG,ISHEAR, I EXPAN, IDENS ,PRBFIL, 
6NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ACS,MCDN,KS,KMKST,KST0B 
7,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KS1,KS2,KS3,KS4,KS5,KS6,KS7, 
8KS8,KS9,KSIO,KDIAG,KOFDG,KAD,LOADN,MEGAO,JEXT,JINT,KUDBP,KMEGA, 
9KPDBP,JTYP,MTYP1,K8,ML0A0,JL0AD,KATR,LINT,KY0UNG,KSHEAR,KEXPAN 

COMMON KDENS,CWFIL 

ECUIVALENCE(U,IU,A,IA),(U(2),IU(2),LABL) 

EQUIVALENCE (B, I BB ) , (C, IC ) 
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DIMENSION FMT{3) 
8 FMTU)»606074013020 
6 FMT(3)=305434606060 
2 CALL ALGCAT(NAME) 
3 Ki = NAME-H 
K2=NAME+12 

PRINT 99,{U(I),I=Kl,K2),ICONT 
CALL RELEASINAME) 
99 F0RMATI35H1PR0BLEM DATA FROM INTERNAL STORAGE//1X, 12A6// 

12H *,I3,36H*TH MODIFICATION OF INITIAL PROBLEM,//) 
98 F0RMATU6H STRUCTURAL DATA//5H TYPE) 
PRINT 98 
IFCID) 9,15,9 

9 GO TO (10, 11, 12, 13, 14), ID 

10 PRINT 96 
GO TO 15 

11 PRINT 95 
GO TO 15 

12 PRINT 94 
GO TO 15 

13 PRINT 93 
GO TO 15 

14 PRINT 92 

96 F0RMATUH+,6X,11HPLANE TRUSS) 
95 F0RMAT(1H+,6X,11HPLAN£ FRAME) 
94 FORMATUH+,6X,10HPLANE GRID) 
93 F0RMAT(1H+,6X,11HSPACE TRUSS) 
92 F0RMATUH+,6X,11HSPACE FRAME) 

15 PRINT 91 

91 FORMAT <8H0METHCD ) 

IFUMETH) 8,18,8 
8 GO TO (16,17), IMETH 

16 PRINT 90 
GO TO 18 

17 PRINT 89 

90 FORMAT (1H+,7X,9HST I FFNESS) 
89 F0RMAT(1H+,7X,11HFLEXIBILITY) 

18 PRINT 88,NJ,NB,NDAT,NLDS 

88 FGRMATC17H NUMBER OF JOINTS, I6/11X, 7HMEMBERS , I 5/ 11X, 8HSUPPQRTS , 14 
1/11X,8HL0ADINGS,I4,/) 
C JOINT COORDINATES 
IF(NJ) 7,39,7 
7 PRINT 87 

87 F0RMATU8H0JGINT CC0RDINATES//6H JOINT, 7X, 1HX, 10X, 1HY, 10X, 1HZ, 10X, 
16HSTATUS) 
CALL ALOCAT(JTYP) 
CALL ALOCAT(KXYZ) 
DO 23 I=1,JEXTN 
IJ=JTYP+I 
IF(IU(IJ))19,23,19 

19 IF(IU{IJ)-3)20,23,20 

20 U = KXYZ+1 + 3»(I-1) 
I2M1 + NCOR0-1 

PRINT 86,1, CUtL) ,L=U, 12) 
86 F0RMATU5,3F11.3) 

IFUU(IJ)-2) 23,21,23 

21 PRINT 85 

85 F0RMAT(1H+,45X,7HSUPP0RT) 
23 CONTINUE 
C JOINT RELEASES 
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IF(NJR)27,39,27 

27 PRINT 84 

CALL ALOCATtKJREL) 
84 FORMAT U5H0JGINT RELEASES//7H JOINT, 4X, 5HF0RCE,4Xi6HM0MENT, 
17X.5HTHETA/7H NUMBER. 4X,7HX Y Z.2X.7HX Y Z,7X,1HI,7X 
21H2.7X.iH3) 
I*KJREL+1 
NR=IUU) 
DO 32 K=1,NR 
LRC=KJREL+3+5*(K-l) 
IA=IU(LRC) 
6 A=A»0000770CCGOO 
IF(IA)28,32,28 

28 LJ=LRC-1 
PRINT 83,IU(LJ) 

83 FORMAT t 15) 
IS»64 

DO 31 IK=1,6 
IS=IS/2 
INO=IA/IS 
IF(ING-l) 31.29,29 

29 N=28-3*IK 
IBB=N/iO 
ION-IBB*10 
IBB=IBB*64 

8 FMT(2)=73000G677301+C+B 
PRINT FMT 
IA=IA-IS 

31 CONTINUE 
II=LRC+1 
IE=LRC+3 

PRINT 82.(U{I),I=II,IE) 
82 F0RMAT(1H*,29X,3F8«2) 

32 CONTINUE 

CALL RELEAS(KJREL) 
C MEMBER INCIDENCES 
C MEMBER PROPERTIES 

39 IF(NB) 40,38,40 

40 PRINT 820 

CALL ALOCAT(JPLS) 
CALL ALOCAT(JMIN) 
CALL ALOCAT(MTYP) 
CALL ALOCAT(KPSI) 
820 FORMAT(25H0MEMBER START END TYPE, 15X, 7HSEGMENT, 5X,2HAX,6X, 
12HAY,6X,2HAZ,7X,2HIX,8X,2HIY,8X,2HIZ,8X,1HL,6X,4HBETA) 
DO 43 I=1,MEXTN 
IK*MTYP+I 
IFUUUK)) 41,43,41 

41 CALL UPACW(U(IK),K1,K2,K3,K4,K5) 
C K3=IML0T 

C K4 = N 

IP=JPLS+I 
IM=JMIN+I 

PRINT 81,I,IUUP),IU(IM) 
81 FORMAT (2X.I3.4X, 13, 3X, 13) 
GO TO(42,430,44,45,46),K3 

42 PRINT 80 

80 FORMAT { 1H+ ,20X, 9HPR ISM AT IC) 
K4 = l 
L0=6 
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GO TO 47 




430 


PRINT 79 




79 


F0RMAT(1H*,20X,15HSTIFFNESS GIVEN) 
GO TO 47 




44 


PRINT 78 




78 


FORMAT (1H+,20X,17HFLEXIBILITY GIVEN) 
GO TO 47 




45 


PRINT 77 




77 


FORMAT (1H*,2QX,16HVAR I ABLE SECTION) 

L0=7 

K4*K4/7 

GO TO 47 




C 


STEEL SECTIONS NOT ACCOUNTED FOR HERE 




46 


GO TO 47 




47 


CALL ALOCAT{MEMB,I) 
IT-MEMB+I 
ITT=IU(IT> 
IF(K3-1>48,49,48 




48 


IFU3-4)52,49,52 




49 


00 50 J=1,K4 

JFK=ITT+L0«IJ-1)+1 

L8J=JFK+LG-l 

PRINT 76, J,CUUI),II = JFK,LBJ) 




76 


F0RMAT<40X,I3,5X,3F8.3,3P10«2,F7.1) 




50 


CONTINUE 




54 


CALL REL£AS(MEMB,I ) 
IF(IPSI)5l,43,51 




51 


IJ=KPSI*I 
PRINT 475, UUJ) 




475 


F0RMAT(1H*,110X,F12.6) 
GO TO 43 




52 


00 53 10=1, JF 

JFK=ITT+1-MIC-1)*JF 

L8J=JFK+JF-1 




53 


PRINT 474,(U(II),II=JFK,LBJ) 




474 


F0RMAT<40X,6F12„4) 

GO TO 54 




43 


CONTINUE 




C 


MEMBER RELEASES 
IF(NMR) 55,61,55 




55 


PRINT 473 




473 


FORMAT (16H0MEM8ER RELEASES//7H MEMBER, 7X ,5HSTART , 14X, 
110X,5HF0RC£,3X,6HMOMENT,4X,5HFORCE,3X,6HMOM6NT/ 
29X,7HX Y Z,9H X Y Z,9H X Y Z,9H X Y Z) 

D€^ 60 I = 1,MEXTN 

IW=MTYP+I 


r3HEND/ 


B 


IF(U(Ita)*0077770COOOO) 56,60,56 




56 


CALL UPACWUU(Ifc),Kl,IRC,K3,K4,K5) 




5 7 


IS=4096 
PRINT 72,1 




72 


F0RMATU5) 
DO 59 J=l,12 
IS=IS/2 
INO=IRC/IS 
IF(ING-l) 59,58,58 




58 


IFU-6) 73,73,74 




73 


N=23 

JC = J , 
GO TO 75 




74 


N = 41 
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JC=U-6 
75 N=N-3«UC-1) 
IBB=N/10 
IC=N-IBB*10 
IBB=IBB»64 
B FMT<2)=730C00677301+B+C 
PRINT FMT 
IRC=IRC-IS«INO 

59 CONTINUE 

60 CONTINUE 

61 CONTINUE 

DO 620 1=1,4 
IA0=190+I 
IF{U(IA0))601,620, 6C1 

601 GO TO(605,6G4,603,602),I 

602 PRINT 699 

699 F0RMAT(17H0MEM8ER DENSITIES) 
GO TO 606 

603 PRINT 698 

698 F0RMATI34H0C0EFFICIENTS OF THERMAL EXPANSION) 
GO TO 606 

604 PRINT 697 

697 FORMAT (13H0SHEAR MODULI) 
GO TO 606 

605 PRINT 696 

696 FORMAT USHQYOUNG'S MODULI) 

606 IFflU(IAD)-l) 610,607,610 

607 PRINT 695 

695 FORMAT (14H MEMBER VALUE) 
CALL AL0CAT(IU(IA0+57)) 
K=IU(IAD+57) 
00 609 J=i,MEXTN 
IP:=MTYP+J 
M=K4J 
IFUUUP)) 608,609,608 

608 PRINT 694,J,U(M) 

694 F0RMAT(2X,I4,3X,F14.2) 

609 CONTINUE 

CALL RELEASUUUAD + 57)) 
GO TO 620 

610 PRINT 693, U{ IAD) 

693 FQRMAT(1X,F14.2,22H VALUE FOR ALL MEMBERS) 
620 CONTINUE 

CALL RELEAS(MTYP) 
38 IF(NLDS) 171,170,171 

170 PRINT 300 

300 FORMAT (37H0ALL LOADINGS DELETED IN MODIFICATION) 
GO TO 399 

171 PRINT 299 

DO 400 IN=1,LEXTN 
299 FORMAT (13H-L0ADING DATA// 37H GIVEN IN TABULAR FORM WITHOUT LABEL 
IS) 
CALL ALOCAT(LOADS,IN) 
IL=LOADS+IN 
IL1=IU(IL)-H 

CALL UPACW(IU(IL1),J1,J2,J,J,J5) 
IFU1) 172,400,172 

172 II=IU(IL)+3 
IE*II*U 

PRINT 301,<IUUP),IP=II,IE) 
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301 


FORMATUH0,12A6) 




IF(J5) 173,182,173 


C 


WHAT INFORMATION WANTED 


173 


PRINT 302 


302 


F0RMATt9H0TABULATE) 




IF1J5-15) 175,174,175 


174 


PRINT 303 


303 


FORMAT UH+,9X,3HALL) 




GO TO 182 


175 


N=16 




00 181 IC=1,4 




N=N/2 




INF=J5/N 




IFUNF) 176,181,176 


176 


J5=J5-N 




GO T0U77, 178,179, 180), IC 


177 


PRINT 304 


304 


F0RMAT(9X,6HF0RCES) 




GO TO 181 


178 


PRINT 305 


305 


FORMAT (9X,9HR£ ACT IONS) 




GO TO 181 


179 


PRINT 306 


306 


FORMAT (9X,11HDIST0RT IONS) 




GO TO 181 


180 


PRINT 307 


307 


FORMAT (9X, 13HD I SPLACEMENTS) 


181 


CONTINUE 


182 


IFU1-1) 185,185,183 


C 


COMBINATION LOADING 


183 


PRINT 308 


308 


F0RMATC32H LOADING CONDITION 




J22=2*J2 




DO 184 KK=1,J22,2 




KKK=IE+KK 




KKKK=KKK+1 




PRINT 309,IU(KKK), U(KKKK) 


309 


F0RMAT(10X,I5,11X,F6.2) 


184 


CONTINUE 




GO TO 400 


C 


REGULAR LOADS 


185 


DO 398 LL=1,J2 




IW=IE+LL 




IF(IU( IW) ) 1851,398,1851 


1851 


CALL UPADP(IU(IW),K1,K2,K5) 




GO TO (186, 191, 189, 190, 187), Kl 


C 


JOINT LOADS 


186 


PRINT 310 


310 


F0RMAT(12X,5HL0ADS) 




GO TO 188 


187 


PRINT 3101 


3101 


FORMAT (12X.12HC I SPLACEMENT) 


188 


PRINT 31i,K5 


311 


F0RMAT(1H+,5HJ0INT,I5) 




CALL AL0CAT(JLGA0,K5) 




CALL REL£AS(JLCAC,K5) 




IWH=JLCAD 




GO TO 220 


C 


MEMBER LOADS 


189 


PRINT 312 



PERCENTAGE) 



268 



312 F0RMAT(12X,8HEND LOAD) 
GO TO 202 

190 PRINT 313 

313 FORMAT U2X, 11HDI STORT IONS) 
GO TO 202 

191 PRINT 314 

314 F0RMAT(12X,4HLCAD) 
CALL AL0CAT(ML0AD,K5) 
CALL RELEAStML0AD,K5) 
IM=MLCAD+K5 
IMM=IU(IM)+K2+1 

CALL UPACK(IOUMM) ,L,L,L3,L4,L) 
IF(L4-2)192tl93,194 
192 PRINT 3141 
3141 FORMAT ( 1H+ ,25X ,12HC0NCENTRAT ED) 
GO TO 195 

193 PRINT 315 

315 F0RMATUH+,25X,7HUNIF0RM) 
GO TO 195 

194 PRINT 316 

316 F0RMAT(1H+,25X,6HLINEAR) 

195 IFCL3/4) 197,197,196 

196 PRINT 317 

317 FORMAT (1H*,16X,6HM0MENT) 
L3=L3~3 

GO TO 198 

197 PRINT 318 

318 F0RMAT(1H+,16X,5HFGRC£) 

198 IFU3-2) 199,200,201 

199 PRINT 319 

319 FORMAT { 1H+, 23X ,1HX ) 
GO TO 202 

200 PRINT 320 

320 FORMAT ( 1H+,23X, 1HY ) 
GO TO 202 

201 PRINT 321 

321 FORMAT (1H+, 23X, 1HZ ) 

202 PRINT 322, K5 

CALL AL0CAT(MLCAD,K5) 
CALL RELEAS(ML0A0,K5) 

322 F0RMAT(1H+,6HMEMBER,I4) 
INH=MLCAD 

220 LP=IWH+K5 

LPL=IU(LP)+K2+1 

CALL UPACW(IU(LPL),L,L2,L,L,L) 

ISTR=LPL+1 
IEND=LPL+L2-2 
PRINT 323, (UlIKIt IK»ISTRtIENO) 

323 FORMAT ( 1H+,38X,8F11. 4/ (39X,8F1 1,4)) 

398 CONTINUE 

400 CALL RELEAS(LOADS,IN) 

399 RETURN 
END 

* LIST8 
» LABEL 

CSIZED VERSION 3 LOGCHER-FENVES JULY 23,1963 
C PROCESSES SIZE DESCRIPTORS 
C STRESS 

C STRUCTURAL ENGINEERING SYSTEMS SOLVER 
SUBROUTINE SIZED(J,K,L) 
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DIMENSION LA8L(12),BETA{90),SYSFIL{27),PRBFILtll),CWFIL(55),U(2), 
HU<2) 

COMMON U,IU,A,IA,LA8L,BETA,IB,IS,IL,INDEX,IN, 
1 CHECK, NMAX,INORM, I SOLV, ISCAN, III , IMOD, JJ JJ, ICONT , I SUCC, IMERG,TOP,N 
21,NL,NT,NkEQ,TN,LFILE,T0LER,IPRG,IRST, IRLD,IRPR,SYSFIL, 
3NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR 
4,IS0DG,NDSG,NDJ, IPD8P, IUD8P,NBB,NFJS1 , JJC, JOC, JM1C, JMPC, JLD, JEXTN, 
5MEXTN,LEXTN,JLC,PRBFIL, 

6NAME,KXYZ,KJR£L,JPLS,JMIN,MTYP,KP$I,MEMB,LOA0S,MGON,KS,KMK$T,KSTDB 
7,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KS1,KS2,K$3,KS4,K$5,KS6,KS7, 
8KS8,KS9,KS10,KDIAG,KOFDG,KAD,LOA0N,MEGAO,JEXT,JINT,KUDBP,KMEGA, 
9KPD8P,JTYP,MTYP1,KB,ML0AD,JLGAD,CWFIL 

EQUIVALENCES, IU, A, I A ) , (U( 2 ) , IU (2) ,LA8L ) 

GO TO (100, 110), L 

100 IFUCONT) 190,101,105 

101 GO TO (200, 300, 400,500), J 

105 IFUMGD-2) 190,106,190 

106 GO TO (250, 350, 401, 550), J 
110 GO TO (201, 301, 191, 501), J 

190 L = 2 

191 RETURN 
C 

C NO.. OF JOINTS 

200 NJ=K 
B CHECK=CH£CK+C000C0G0C001 
JEXTN=0 
CALL 0EFINE(KJREL,1,0,0,1) 

201 N=K*3 

CALL D£FINE(KXYZ,N, 0,0,1) 
CALL OEFINE(JTYP,K, 0,1,1) 
CALL DEFINE(JLCA0,0,K, 1,0,1) 
CALL ALOCAT(KXYZ) 
CALL ALOCAT(JTYP) 
CALL ALOCAT(JLOA0,0) 
JX=JEXTN+1 
DO 202 I=JX,K 

202 CALL DEFINEt JLCAD, I ,2,0, 0, 1 ) 
JEXTN=K 

GO TO 191 
250 NJ=K 

IF(NJ-JEXTN)6G0,600,201 
C NO. OF MEMBERS 
300 NB=K 

MEXTN=0 
B CHECK=CHECt< + C00OCO0G0004 

301 CALL DEFINEUPLS,K,0,1,1) 
CALL 0EFINE(JMIN,K, 0,1,1) 
CALL DEFINE(MTYP,K, 0,0,1) 
CALL DEFINE(MTYP1,K, 0,0,1) 
CALL DEFINE(KPSI,K, 0,0,1) 
CALL 0EFINE(MEMB,0,K, 1,0,1) 
CALL DEFINE(MLCAD,0,K, 1,0,1) 
CALL ALOCAT(JPLS) 

CALL ALOCATUMIN) 
CALL ALOCAT(KPSI) 
CALL ALOCAT(*EMB,0) 
CALL ALOCAT(MLOAD,0) 
JX=MEXTN+1 
DO 302 I=JX,K 

302 CALL DEFINE(MLOAD, 1,2,0,0,1) 
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MEXTN=K 

60 TO 191 
350 N8=K 

IF(NB~MEXTN)600, 600,301 
C NO. OF SUPPORTS 
B400 CHECK=CHECK+G00000000002 
401 NDAT=K 

60 TO 191 
C 
C NO. OF LOADINGS 

500 NLDS=K 

8 CHECK=CHECK*0G0000Q00010 

501 CALL 0EFINEUOADS,0,K, 1,0,1) 
510 CALL ALOCAT(LOAOS,0) 

LEXTN=K 

GO TO 191 
550 NLDS=K 

IF(NLDS-L£XTN)600,600,501 
600 IRST=1 

GO TO 191 

END 

* LIST8 

* LABEL 

CREAD SUBROUTINE FOR READING JOINT AND MEMBER LABELS FENVES-LOGCHER 

SUBROUTINE READ(IG,J) 

DIMENSION KL(36) 

DIMENSION LABL(12),BETA(86),SYSFIL£27),PR8FIL(6),CWFIL{49),U(2) f 
1IU(2) 

COMMON U,IU,A,IA,LABL,BETA,ITABLE,J,NE,ITS,I8,IS,IL,INDEX,IN, 
1CHECK,NMAX,INGRM, ISOLV, I SCAN, 1 1 1 , IMOD , JJ JJ, ICGNT , ISUCC, IMERG,TOP,N 
21,NL,NT,NREQ,TN,LFILE,T0LER,IPRG,IRST t IRLD,IRPR,SYSFIL, 
3NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMErH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR 
4,IS0DG,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JLD,JEXTN, 
5MEXTN,L£XTN,JLC,NLDSI,IY0UNG,1SHEAR,IEXPAN,I0ENS,PRBFIL, 
6NAME,KXYZ,KJR£L,JPLS,JMIN,MTYP,KPSI,MEM8,L0ADS,M0DN,KS,KMKST,KSTDB 
7,KATKA,KPPLS,KPMNS,KUV,KPPRi,KR,KSAVE,KSl,KS2,KS3,KS4,KS5,KS6 f KS7» 
8KS8,KS9,KS10,KDIAG,K0FDG,KA0,L0ADN,M£GAO,JEXT,JINT,KUDBP,KMEGA, 
9KPDBP,JTYP,MTYP1,K8,ML0AD,JLQAD,KATR,LINT,KY0UNG,KSHEAR,KEXPAN 

COMMON KDENS,CWFIL 

EQUIVALENCE(U,IU,A,IA),(U(2),IU(2),LABL) 

EQUIVALENCE (K,BK) 
F LISTS 

IB = 

IL=0 

11 = 

12 = 
IN=i 
IS=0 
ITS=0 

100 I3=MATCH(LIST5,K,0) 

GO TO (130, 101,102, 96,103, 104), 13 
101 ITS=K 

GO TO 100 

102 IB=IB+1 
BETA(IB)=BK 
GO TO 100 

103 KLUN)=K 
GO TO 105 

104 K=KL(IN> 

105 GO TO (106,106,106,107,108,107,108,107,108,109,110,111,111,111,112 
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1,112,112,113,114,115,116,117, 116,117,107,108,118,118, 12 1,122 t 1055, 
21055,1055, 1056, 1056, 1056, 10 7 ),K 
1C55 12=0 

Ii=-3C 
GO TO 106 
1056 12=3 

Il=-33 
106 IA=K+Ii+I2 
GO TO 119 



107 


12 = 




GO TO 120 


108 


12 = 3 




GO TO 120 


109 


11 = 




GO TO 1101 


110 


11=6 


1101 


INDEX=3 




GO TO 120 


ill 


IA=K-11 




GO TO 119 


112 


IA = 1 




GO TO 119 


113 


IA = 2 




GO TO 119 


114 


IA = 3 




GO TO 119 


118 


GO T0C1181, 1181, 114), IG 


1181 


IA = 7 




GO TO 119 


122 


IA = 8 




GO TO 119 


121 


IG=4 




GO TO 500 


115 


IA = 4 


119 


IL=IL+i 




LABLUL)=IA 


120 


IN=IN+1 




GO TO 100 


116 


IS=2 




GO TO 100 


117 


IS=1 




GO TO 100 


130 


GO TO (131,97),ISCAN 


131 


IFUL)134,132,134 


132 


IFUB-12U322, 1322, 1321 


1321 


N=12 



GO TO 1323 

1322 N=IB 
It=N 

1323 IFU6)134, 134, 1324 

1324 DO 133 1 = 1, N 

133 LABLU) = I + I1 

134 GO TO {500, 135, 137), IG 

135 IA=0 

DO 136 1 = 1, IL 

136 IA=iA+2*«(LABL(I)-l) 
GO TO 500 

137 IF(JLD) 1371,95,1371 
B1371 CHECK=CHECK+000000000200 
CALL ALOCAT(LOADS,JLC) 
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IF(ICONT)2CO,138,2CO 

138 L=LOADS+JLC 
IK=IU(L)+1 

CALL UPAOPULH iK),X,NLD,Y) 
NLS=IU(IK+1) 
IU(IK)=IU(IK)4l 
IF(NLD-NLS) 140,139,139 

139 NLS=NLS+10 
IU(IK+1)=NLS 

CALL OEFINE(LOADS,JLC,NLS+14,0,0,1) 

140 GO 10(141, 170,142, 171,141), INDEX 

141 N=8 

CALL ALOCAT(JLCACJ) 

L=JLOAD+J 

CALL UPADP(IUCL),X,Y,NSZ) 

IK=IU(L)+1 

IF(NSZ-2)148, 148,149 

148 IU(IK)=3 
IU(IK+1)=0 

149 NKPL=IUUK) 
NBL=IU(IK+1) 
IUUK)=NKPL + 8 
IUUK*1)=NBL + 1 

CALL CEFINE{JLCAD,J,NKPL+7,0,0,1) 
CALL RELEASiJLCACJ) 
L=JLOAD+J 
GO TO 144 

142 N=14 

143 CALL ALOCAT(^LOACJ) 
L=fcLOAD+J 

CALL UPADPUUU),X,Y,NSZ) 

IK«IU(L)+1 

IF(NSZ-2)146,146,147 

146 IUUK)*3 
IUUK+1)=0 

147 NKPL=IU(IK) 
NBLMUUK+1) 
NM=NKPL+N-1 
IUUK)=NKPL + N 
IU(IK+1)=N8L+1 

CALL DEFlNE(KLCAO, J, NK, 0,0,1) 
CALL RELEAS(MLOAD,J) 
L=NLOAD+J 

144 P=LGACS+JLC 
IJ=IU(M)+NL0+15 

CALL PADPUUUJ), INDEX,NKPL,J) 

145 IJ=1U(L)+NKPL 

CALL PADPUUUJ), INDEX, JLC,NLD + 1) 

IJ=IJ+1 

CALL PACKWUUUJ),0,N,LA6L(1),LABL(2),Q) 

150 GO TO (151,153,151,151,151),INDEX 

151 CO 152 M=1,IB 
NM=LABL(M) 
KKL=IJ+NH 

152 L(KKL)=8ETA(K) 
GO TO 400 

153 IFUL-2U56, 156,154 

154 DO 155 M=1,IB 
NM=LA8L(M*2) 
KKL=IJ+NM 
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155 


U(KKL)=8ETA(K) 




GO TO 400 


L56 


IP(LA8L(2)-2) 158,157, 160 


157 


LABL(5)=4 


158 


LA6L(4)=3 


159 


LA8L(3)=1 




GO TO 154 


160 


DO 161 M=l,4 


161 


LABL(M+2)=fc 




GO TO 154 


17G 


N=6 




GO TO 143 


171 


N=8 




GO TO 143 


200 


IRLOl 




GO TO (97,201,138,201), IMOD 


201 


CALL PADP(KKL, INDEX, C,J) 




IX=1 




L=LOADS+JLC 




IK=IU(L)+i 




NLD=IU(IK) 




IK=IK+13 




IF(ITS) 2022,2021,2022 


2021 


ITS = 1 


2022 


DC 204 1 = 1, NLD 




M=IK+I 


B 


A=U(M)»7000G0777777 




IF( IA-KKL)2C4,202,204 


202 


IF(IX-ITS)203, 205,203 


203 


IX=IX+1 


204 


CONTINUE 




PRINT 98 




GO TO 97 


98 


F0R*AT(32H LOAD SPECIFIED CANNOT BE FOUND.) 


205 


GO TO (97, 206, 97, 209), IMOD 


206 


NKPL-IU(M) 




NLD=I 




GO TO (207,2081,2082,2083,207), INDEX 


207 


CALL ALQCAT(JLCAD,J) 




CALL RELEAS(JLOAD,J) 




N=8 




L=JLOAD+J 




GO TO 145 


2081 


N=6 




GO TO 208 


2082 


N=14 




GO TO 208 


2083 


N=8 


208 


CALL ALOCAT(MLOAD,J) 




CALL RELEAS(HLOAO,J) 




L=MLOAD+J 




GO TO 145 


209 


I»IUCM) 




IU(M)=0 




GO TO (210,211,211,211,210), INDEX 


210 


CALL ALOCATULCAO.J) 




CALL RELEASC JLGAOfJ) 




L=JLOAC+J 




GO TO 212 


211 


CALL ALOCAT(HLCA0,J) 
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CALL 


RELEAS{MLGAD,J> 




L=MLOAD+J 


212 


NM=IUCL)+XA8SFU> 




N=IUU)+2 




IU(N> 


-IU(N)-1 




IU(NM)=0 




GO TO 


400 


95 


CALL 


PRERRC36) 


B 


CHECK 


=CHECK«777777777377 




GO TO 


97 


96 


CALL 


PRER2(9rO,BK) 


97 


IG = 




400 


CALL 


RELEASUOADS,JLC> 


500 


RETURN 




ENO 




* 


FAP 




• 


SUBROUTINE MATCH R.D.LOGCHER 




COUNT 385 




LBL 


MATCH 




ENTRY MATCH 


MATCH 


SXA 


SACK, 4 




SXA 


8ACK+2,2 




SXA 


BACK+3,1 




LDQ 


SAVE 


WORD 


AXT 


**tl 


LETTER AXT 


»*,2 


• 


PXA 






LGL 


36 




LAS 


=0607777777777 




TRA 


* + 2 




TRA 


SAL 




LGR 


36 


CHKT 


CLA» 


3,4 




SUB 


ONE 




TZE 


NCARD 




STZ 


DICK 




TMI 


NF 




SUB 


THREE 




TMI 


NUMB+1 




TNZ 


BUFAD 




TSX 


STB, 4 


STF 


PXA 






LGL 


6 




LAS 


BLANK 




TRA 


*+2 




TRA 


BLKl 




LAS 


COMMA 




TRA 


»+2 




TRA 


BLKl 




TIX 


STF, 2,1 




TSX 


NW0,4 




TRA 


STF 


BLKl 


LGR 


6 


NF 


TSX 


STB, 4 




STZ 


TEMP 




PXA 






LGL 


6 




LAS 


=00C0C0000G040 




TRA 


* + 2 




TRA 


NUMB 



VERSION CORRECTEO 1-15-64 



NEW CARD 

NEW FIELD 

NUMBER ONLY EXPECTED 

BUFFER ADDRESS FOR CARD TRANSMISSION 

STRIP ONE LOGICAL FIELD 



EXAMINE ONE FIELD 

MINUS 
NUMBER NEXT 



01 

005 

C010 

015 

0020 

0030 

0040 

0050 

060 

0070 

0080 

0081 

083 

086 

089 

092 

095 

098 

0100 

0110 

115 

0120 

0130 

0140 

0150 

0160 

C170 

0180 

0190 

02C0 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 
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LAS 


=0000000000033 


TRA 


• ♦2 


TRA 


NUMB 


LAS 


=0000000000020 


TRA 


♦ + 3 


NOP 




TRA 


NUHB 


AXT 


6,4 


LPNF L6R 


6 


CAL 


TEMP 


L6L 


6 


SLW 


TEMP 


INLP TIX 


♦ ♦A, 2,1 


SXA 


• + 2,4 


TSX 


NWD,4 


AXT 


»*,4 


PXA 




LGL 


6 


LAS 


BLANK 


TRA 


♦ ♦2 


TRA 


8LK2 


LAS 


COMMA 


TRA 


»+2 


TRA 


BLK2 


TIX 


LPNF, 4,1 


TRA 


INLP 


BLK2 LGR 


6 


SXA 


WORD,l 


SXA 


LETTER, 2 


LXA 


BACK, 4 


CLA» 


1,4 


STA 


* + l 


ADLIST CLA 


*« 


PAX 


»1 


ADO 


*-2 


ADD 


= 1 


STA 


♦ ♦8 


CAL 


TEMP 


LAS 


=0000000002446 


TRA 


* + 2 


TRA 


DITTO 


LAS 


=0002431636346 


TRA 


*+2 


TRA 


DITTO 


LAS 


»*,1 


TRA 


»+2 


TRA 


FOUND 


TIX 


♦-3,1,1 


SLW» 


2,4 


CLA 


FOUR 


TRA 


BACK+1 


FOUND PXA 


,1 


SSM 




ADD 


= 1 


ADD* 


AOLIST 


ALS 


18 


STO» 


2,4 


CLA 


FIVE 


TRA 


BACK+1 


DITTO CLA 


SIX 



DECIMAL 



FIELD CONTAINS DITTO 



FIELD CONTAINS DITTO 



0360 
0370 
0380 
0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
C600 
0610 
0620 
0630 
0640 
0650 
0660 
0670 
0680 
0690 
07C0 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
0780 
0790 
0800 
0810 
0820 
0830 
C840 
0850 
0860 
0870 
0880 
0890 
0900 
C910 
0920 
0930 
0940 
C950 
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TRA 


BACK+1 


NCARD 


ZET 


DICK 




TRA 


CGNTER-1 




TXH 


READCtltl 




TXL 


READC,2,5 




PXA 






LGL 


6 




LAS 


= 054 




TRA 


* + 2 




TRA 


READC 




LAS 


= 053 




TRA 


♦ ♦2 




TRA 


CONTER 




LGR 


6 




TRA 


NF 




STZ 


DICK 


ONTER 


CAL 


=0532551514651 




LXA 


BACK, 4 




SLW* 


2,4 




TNX 


♦♦1.2,1 




SXA 


W0R0,1 




SXA 


LETTER, 2 




CLA 


FOUR 


BACK 


AXT 


»*,4 




STQ 


SAVE 




AXT 


**,2 




AXT 


»*tl 




TRA 


4,4 


NUMB 


LGR 


6 


RFLN 


CLA 


= 1 




STG 


FLCC 




STZ 


PTPLC 




STZ 


BCON 




STZ 


BCDN+1 




STZ 


SIGN 




AXT 


0,4 




TRA 


INTO 


ONCON 


TIX 


INTG, 2,1 




SXA 


• ♦2,4 




TSX 


NWD,4 




AXT 


*»,4 




PXA 






LGL 


36 




LAS 


=0607777777777 




TRA 


♦ ♦2 




TRA 


STRD-1 




LGR 


36 


INTG 


PXA 






LGL 


6 




LAS 


=0000000000040 




TRA 


•♦2 




TRA 


AOSN 




LAS 


=0000000000014 




TRA 


TSTPT 




TRA 


ADSN 




TRA 


NBO 


ADSN 


CLA 


= 1 




STQ 


SIGN 




TRA 


ONCON 


NBD 


LAS 


=0000000000012 



NEW CARD ALREADY READ 
* FOR COMMENT CARD 

$ FOR CONTINUATION CARD 
CONTINUATION CARD ERROR-NOT RIGHT 



G960 
965 
970 
975 
0980 
0990 
1CC0 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 

1090 
11C0 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1335 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
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TRA 


ONCON 




TRA 


ONCCN 




TXI 


•♦1,4,1 




LGR 


6 




PXA 


,4 




SUB 


= 7 




TPL 


SEWD 




CAL 


BCDN 




LGL 


6 




SLW 


BCDN 




TRA 


ONCCN 


sewd 


sue 


= 2 




TPL 


PTOUT 




CAL 


BCDN+1 




LGL 


6 




SLW 


BCDN+1 




TRA 


ONCON 


PTOUT 


AXT 


8,4 




TRA 


TESNU 


TSTPT 


LAS 


=0CG0C0C00CC33 




TRA 


BLK7 




TRA 


SPT 




TRA 


BLK7 


SPT 


SXA 


PTPLC, 4 




STZ 


FLOO 




TRA 


ONCCN 


BLK7 


PXA 


,4 




TIE 


ONCON 




TRA 


STRD+1 


TESNU 


PXA 






LGL 


6 




LAS 


=OOGOOGOOOC011 




TRA 


STRD 




NOP 




INTB 


TIX 


TESNU, 2,1 




SXA 


♦ ♦2,4 




TSX 


NMD, 4 




AXT 


**,4 




TRA 


TESNU 




LGR 


30 


STRO 


LGR 


6 




TXL 


NFND,4,0 




PXA 


t4 




SUB 


PTPLC 




STO 


PTPLC 




STQ 


SAVE 




SXA 


LETTER, 2 




STZ 


FXANS 




AXT 


0,2 


NUHO 


PXA 


t4 




SUB 


= 7 




TMI 


INLCP 




ADO 


= 1 




PAX 


t4 




CLA 


= 1 




STO 


DIV 


SECD 


ADD 


ABCDN 




STA 


PUT 


PUT 


CAL 


• « 




LOG 


= 



1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
16G0 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
18C0 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
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LRS 


6 




SLW» 


PUT 




PXA 






LRS 


29 




NPY 


NUN, 2 




XCA 






ADD 


FXANS 




STO 


FXANS 




TXI 


TST3,2,1 


TST3 


TIX 


PUT, 4,1 




CLA 


DIV 




TZE 


FINISH 




AXT 


6,4 


INLOP 


STZ 

PXA 


DIV 




TRA 


SECC 


GTFX 


CLA 


FXANS 




ALS 


18 




TRA 


RESULT+1 


FINISH 


CLA 


FLOO 




TNZ 


GTFX 




CLA 


FXANS 




ADD 


FLO 




STO 


TEMP 




CLM 






FAO 


TEMP 




STO 


TEMP 




CLA 


PTPLC 




TZE 


TEND 




PAX 


t4 




CLA 


TEMP 




FOP 


DIV, 4 


RESULT 


XCA 






ZET 


SIGN 




SSM 




IR2 


LXA 


LETTER, 2 




LDQ 


SAVE 




TIX 


•♦2,2,1 




TSX 


NMD, 4 




SXA 


WORD, I 




SXA 


LETTER, 2 




LXA 


BACK, 4 




STO» 


2,4 




PXA 






NZT 


FLCO 




CLA 


ONE 




ADD 


TWO 




TRA 


BACK+i 


TEND 


LDQ 


TEMP 




TRA 


RESULT 


NFND 


TSX 


NXTCD,4 




TRA 


NUMB+1 




LXA 


BACK, 4 




STQ« 


2,4 




TRA 


BRET 


STB 


SXA 


STBF,4 




AXT 


6,4 




PXA 






LGL 


6 




LAS 


COMMA 



2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
23G0 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
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TRA 


• ♦2 




TRA 


CMB 




LAS 


BLANK 




TRA 


»+2 




TRA 


BLK3 




LGR 


6 


STBF 


AXT 


*«t4 




TRA 


lt4 


BLK3 


TIX 


*+6,2,l 




SXA 


• ♦4,4 




TSX 


NXTCD, 4 




TRA 


» + 2 




TRA 


BRET 




AXT 


*«,4 




TIX 


STB+2,4,1 


BRET 


SXA 


LETTER, 2 




SXA 


WCRD,1 




CLA 


ONE 




TRA 


BACK 


CMB 


AXT 


7,4 




TRA 


BLK3 


READC 


TSX 


READ, 4 




TRA 


NCARD+2 


SAL 


TSX 


NXTCD, 4 




TRA 


* + 2 




TRA 


NFND+2 




CLA 


= 1 




STO 


DICK 




TRA 


CHKT 


NXTCD 


TXL 


NWD,l,ll 




CLA 


= 1 




STO 


DICK 


READ 


SXA 


READR,4 




TSX 


$(CSH),4 




PIE 


FMT1 




AXT 


1,1 




STR 






ST (2 


BUF+1,1 




TXI 


♦♦1,1,1 




TXL 


♦-3,1,12 




TSX 


$(RTN),4 




TSX 


$<SPH>,4 




P2E 


FMT2 




AXT 


1,1 




LOQ 


BUF+1,1 




STR 






TXI 


♦♦1,1,1 




TXL 


♦-3,1,12 




TSX 


$(FIL),4 




CAL 


BUF 




LAS 


=0632142256047 




TRA 


♦ ♦2 




TSX 


$EXIT,4 


REAOR 


AXT 


♦♦,4 




AXT 


0,1 


NMD 


AXT 


6,2 




LOQ 


BUF,1 




TXI 


♦♦1,1,1 




HIT 


DICK 




TRA 


1,4 



TAKE POST MORTUM 



2720 
2730 
2740 

2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
29C0 
2910 
2920 
2930 
2940 
2943 
2944 
2945 
2946 
2947 
2948 
2950 
2960 
2970 
2980 
2990 
3CC0 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
32C0 
3210 
3220 
3230 
3240 
3250 
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PXA 






LGL 


6 




LAS 


= 054 




TRA 


*+2 




TRA 


READ 




STZ 


OICK 




LAS 


=053 




TRA 


*+2 




TRA 


*+3 




LGR 


6 




TRA 


2,4 




TIX 


♦♦1,2,1 




TRA 


1,4 


BUFAD 


CAL 


* 




ANA 


=0000000077777 




ADD 


= 21 




SSM 






ADD 


TCP 




ALS 


18 




STO* 


1,4 




TRA 


4,4 




OCT 


607777777777 


BUF 


BES 
PZE 


11 


PTPLC 


PZE 




8C0N 


PZE 
PZE 




SIGN 


PZE 




FLOO 


PZE 




ABCON 


PZE 


BCDN 


TEMP 


PZE 




FXANS 






SAVE 


PZE 




DICK 


9l£ 






8CI 


2,) X,12A6 


FMT2 


BCI 


lt(lHO f 5 


FMT1 


8CI 


1,(12A6) 


BLANK 


OCT 


60 


COMMA 


OCT 


73 


ONE 


OCT 


1000000 


TKQ 


OCT 


200CCCO 


THREE 


OCT 


3000000 


FOUR 


OCT 


40CCOOO 


FIVE 


OCT 


5000000 


SIX 


OCT 


6C0C0C0 


FLO 


OCT 


23300G0C0000 




DEC 


10C0C0O0. 




DEC 


1000000. 




DEC 


10CC0C. 




OEC 


1C0C0. 




DEC 


1000. 




DEC 


100. 




DEC 


10. 


DIV 


PZE 






DEC 


100CCOOO 




DEC 


1000000 




DEC 


10000G 




OEC 


10000 




DEC 


1000 




DEC 


100 



3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3395 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
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DEC 10 
NUM DEC 1 
U COMMON 119 
TOP COMMON 1 
END 
» LIST 8 
* LABEL 

SUBROUTINE PRERR(J) 
C ERROR PRINTOUT SUBROUTINE 

C STRESS. ..STRUCTURAL ENGINEERING SYSTEM SOLVER, VERSION III 
C 13 AUGUST 1963 

DIMENSION IUI36) 
COMMON IU 

GO TO (I, 2, 3, 4, 5 ,6, 7,22,9,23,24,12,25,27,15*16,17, 13,19,20,21,35, 
1 28, 30, 3 1,32, 33, 34, 8, 10, 11, 14, 29, 18, 26, 36), J 
1 PRINT 801 
500 RETURN 

801 FORMAT (1H1) 

2 PRINT 802,IU(112) 
GO TO 500 

802 FORMAT (37H PROBLEM TOO LARGE FOR MEMORY. IS0LV=I4) 

3 PRINT 803 
GO TO 500 

803 FORMAT (55H EXECUTION DELETED - FOLLOWING STATEMENTS SCANNED ONLY. 
1 ) 

4 PRINT 804 
GO TO 500 

804 FORMAT C31H PROBLEM INCORRECTLY SPECIFIED. ) 

5 PRINT 805 
GO TO 500 

805 FORMAT (33H PROBLEM FAILED DURING EXECUTION. ) 

6 PRINT 806 
GO TO 500 

806 FORMAT (19H PROBLEM COMPLETED. ) 

7 PRINT 807 
GO TO 500 

807 FORMAT (26H STATEMENT NOT ACCEPTABLE. ) 

8 PRINT 808 
GO TO 500 

808 FORMAT (29H MODIFICATION NOT ACCEPTABLE. ) 

9 PRINT 809 
GO TO 500 

809 FORMAT (35H FIXED POINT NUMBER IN WRONG PLACE. ) 

10 PRINT 810 
GO TO 500 

810 FORMAT (54H JOINT NUMBER GREATER THAN NUMBER OF JOINTS SPECIFIED.) 

11 PRINT 811 
GO TO 500 

811 FORMAT (56H MEMBER NUMBER GREATER THAN NUMBER OF MEMBERS SPECIFIED 
1. ) 

12 PRINT 812 
GO TO 500 

812 FORMAT (38H FLOATING POINT NUMBER IN WRONG PLACE. ) 

13 PRINT 813 
GO TO 500 

813 FORMAT (34H NUMBER OF LOADINGS NOT SPECIFIED. ) 

14 PRINT 814 
GO TO 500 

814 FORMAT (58H LOAOING NUMBER GREATER THAN NUMBER OF LOADINGS SPECIFI 
1ED. ) 



3850 
3860 
3870 
3880 
3890 
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15 PRINT 815 
GO TO 500 

815 FORMAT (32H NUMBER OF JOINTS NCT SPECIFIED. ) 

16 PRINT 816 
GO TO 500 

816 FORMAT ( 34H NUMBER OF SUPPORTS NOT SPECIFIED. ) 

17 PRINT 817 
GO TO 500 

817 FORMAT (33H NUMBER OF MEMBERS NOT SPECIFIED, ) 

18 PRINT 818 
GO TO 500 

818 FORMAT (60H NUMBER OF LOADINGS GIVEN NOT EQUAL TO THE NUMBER SPEC1 
1FIED. ) 

19 PRINT 819 
GO TO 500 

819 FORMAT I33H TYPE OF STRUCTURE NOT SPECIFIED. ) 

20 PRINT 820 
GO TO 500 

820 FORMAT (34H METHOD OF SOLUTION NOT SPECIFIED. ) 

21 PRINT 821 
GO TO 500 

821 F0RMAT(42H A SOLUTION IS NOT AVAILABLE FOR PRINTING.) 

22 PRINT 822 
GO TO 500 

822 FORMAT (20H UNACCEPTABLE DITTO. ) 

23 PRINT 823 
GO TO 500 

823 FORMAT (30H FIXED POINT NUMBER NOT FOUND. ) 

24 PRINT 824 
GO TO 500 

824 FORMAT (36H TYPE OF MODIFICATION NOT SPECIFIED. ) 

25 PRINT 825 
GO TO 500 

825 FORMAT { 34H TYPE OF STRUCTURE NOT ACCEPTABLE. ) 

26 PRINT 826 
GO TO 500 

826 FORMAT (32H METHOD SPECIFIED NOT AVAILABLE. ) 

27 PRINT 827 
GO TO 500 

827 FORMAT ( 17H TOO MANY BLANKS. ) 

28 PRINT 828 
GO TO 500 

828 FORMAT (63H NUMBER OF FREE JOINTS GIVEN NOT EQUAL TO THE NUMBER SPE 
1CIFIE0. ) 

29 PRINT 829 
GO TO 500 

829 FORMAT (60H NUMBER OF SUPPORTS GIVEN NOT EQUAL TO THE NUMBER SPECl 
1FIED. ) 

30 PRINT 830 
GO TO 500 

830 FORMAT (59H NUMBER OF MEMBERS GIVEN NOT EQUAL TO THE NUMBER SPECIF 
1IED. ) 

31 PRINT 831 
GO TO 500 

831 FORMAT (76H NUMBER OF MEMBER PROPERTIES GIVEN NOT EQUAL TO THE NUM 
18ER OF MEMBERS GIVEN. ) 

32 PRINT 832 
GO TO 500 

832 FORMAT (32H UNACCEPTABLE STATEMENTS PRESENT ) 

33 PRINT 833 
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GO TO 500 

833 FORMAT (26H STRUCTURAL DATA INCORRECT ) 

34 PRINT 834 
GO TO 500 

834 FORMAT (23H LOAOING DATA INCORRECT ) 

35 PRINT 835 
GO TO 500 

835 FORMAT ( 19H NO LCADS SPECIFIED ) 
36 PRINT 836 

GO TO 500 
836 F0RMATC55H LOADING DATA MUST BE GIVEN FOLLOWING A LOAOING HEADER.) 
END 

* LIST8 

* LABEL 

CRESTOR ROUTINE FOR RESTORING IN MACHINE INTIAL DATA / LOGCHER 1-7-64 

SUBROUTINE RESTOR 

DIMENSION LA8L(12),8ETA(90),SYSFIL{17),PRBFIL{10) f CWFIL{53),U(2) , 
1IU(2) ,NTAP£(5),NXFILE(5> 

COMMON U,IU,A,IA,LABL,BETA,IB,IS,IL,INDEX,IN, 
1 CHECK, NMAX, INORM, I SGLV , ISCAN, 1 1 1 , IMOD, JJ J J, ICONT ,1 SUCC , IMERG, TOP,N 
21,NL,NT,NREQ,TN,LFILE,T0LER,IPRG,IRST, iRLD, IRPR,NTAPE ,NXFILE,SYSFI 
3L,NJ,NB,N0AT,ID,JF,NSQ,NCQRD, IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,N 
4JR,ISGDG,N0SG,NDJ, IPD8P, IUD8P,N8B,NF JS i, JJC, JDC, JMIC, JMPC, JLD, JEXT 
5N,MEXTN,LEXTN,JLC,NLDSI,PRBFIL, 

6NAME,KXYZ,KJREL,JPLStJMIN,MTYP,KPSI,MEM8,L0ADS,M0DN,KS,KMKST,KSTDB 
7,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KS1,KS2,KS3,KS4,KS5,KS6,KS7, 
8KS8,KS9,KS10,KDIAG,KOFDG,I0FDG,LOADN,M£GAO,JEXT, JINT,KUDBP,KMEGA, 
9KPDBP,JTYP,MTYP1,K8,MLGAD,JL0AD,KATR,LINT,CWFIL 

EQUIVALENCES, IU, A, IA > , (U(2 ) , IU( 2 ) ,LABL ) 

LT^LFILE 

CALL FILES(3,N,JJJJ,KSAVE,T0P) 

LFILE=LT 

DO 11 1=1,4 

N =NTAPECI> 

NXFILECI)«1 
11 REWIND N 

RETURN 

END 

* LIST8 
« LABEL 

SUBROUTINE SELCUT ( JLX, IZ , NUM ) 

C STRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C KENNETH F. REINSCHMIDT, ROOM 1-255, EXT. 2117 

C STRESS VERSION III. ..9 SEPTEMBER 1963 

C JLX = EXTERNAL LOADING NUMBER. ..IF JLX NOT EQUAL TO JLX OF 

C PREVIOUS CALL, PRINT STRUCTURE NAME, MODIFICATION NAME, AND 

C LOAOING NAME ON NEW PAGE. IF EQUAL, NO PRINT. 

C IZ = PRINT CODE... IF IZ NOT EQUAL TO IZ OF PREVIOUS CALL, PRINT 

C HEADING OF OUTPUT TYPE. IF EQUAL, NO PRINT. 

C NUM = MEMBER OR JOINT NUMBER DESIRED. IF NUM LESS THAN OR EQUAL 

C TO ZERO, PRINT ALL QUANTITIES. 

DIMENSION U(36),IU(36) f Y(6,6),T(6,6),JUNK(12),V(12), 
1 SYSFIL(27),PRGFIL(6), KRAYC10) 

COMMON U,IU,Y,T,K1,K2,KU,KPMIN,KPPL,KUPR,JT,JTEST,JL0,JUNK,KRR, 
1 KTEM,KSUP,V, 

4CHECK, NMAX, INORM, ISCLV, I SCAN, I II I, IMOD, J J JJ, ICONT, I SUCC, IMERG, 
5TCP,N1,NL,NT,NREQ,TN,LFILE,T0LER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
8NJ,N8,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR, 
9NJR,IS0DG,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JLD 
COMMON JEXTN,MEXTN,LEXTN, JLCNLDSI , I YOUNG, ISHEAR , I EXPAN, IDENS, 
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1 PROFIL, 

4NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ADS,MCDN,KS,KMKST,K$TDB 

5,KATKA,KPPLS,KPMNS,KUV,KPPRI f KR,KSAVE,KRAY,KOIAG,KOFDG, 

6 IGFDG,L0ADN,MEGA0,JEXT,JINT,KUD8P,KMEGA,KPDBP,JTYP,MTYP1,KB 

7,ML0AD, JLGAD,KATR,L£XT,KYGUNG,KSH£AR,KEXPAN,KDENS 

EQUIVALENCE (U,IU,Y) 
C 

CALL ALOCAT(LEXT) 

CALL ALOCAT(LOADS,0) 

CALL ALOCAT(LOADS,JLX) 

Kl * LOAOS+JLX 

JLO = IU(K1)+1 

CALL UPACW<U<JLG),K1, JUNK (2 ) , JUNK ( 3 ) , JUNK (4) , JT ) 

IF (Kl-1) 190,50,50 
C CONVERT TO INTERNAL LOADING NUMBERS 
50 JLI = LEXT+JLX 

JLI = IU(JII) 

CALL RELEAS(LEXT) 

IF (JLX-JLXP) 40,108,40 
40 CALL ALOCAT(NAME) 

105 Kl = NAME+1 
K2 = NAME+12 

PRINT 300, (U( I),I*K1,K2) 
IF(M0GN)106, 107,106 

106 CALL ALOCAT(KOON) 
Kl * KCDN+1 

K2 = MODN+12 

PRINT 302,<UU),I = K1,K2> 

CALL RELEAS(MOCN) 

107 JLO=LOADS+JLX 
JL0=IU(JL0)+1 
Kl=JL0+2 
K2=JLG+13 

PRINT 301, (UU), I = K1,K2) 
CALL RELEAS(NAHE) 
JLXP = JLX 
IZP « 

108 GO TO(15,20,25,30),IZ 

C PRINT JOINT LOADS AND SUPPORT REACTIONS 
20 CALL ALOCAT(JINT) 

CALL ALOCATUR,0) 

CALL ALOCAT{KR,JLI) 

CALL ALOCATUTYP) 

JTP=JTYP+NUM 

JTP=3~IU(JTP) 

Kl * KR+JLI 

KRR = IU(K1) 

IF(JTP-3)102,131,102 
C PRINT MEMBER DISTORTIONS 
25 CALL ALOCAT(MTYP) 

CALL ALOCAT(KUV,0) 

CALL ALOCAT(KUV,JLI) 

Kl = KUV+JLI 

KU = IU(Kl) 

GO TO 102 
C PRINT JOINT DISPLACEMENTS 
30 CALL ALOCATC J I NT) 

CALL ALOCAT(KPDBP) 

CALL ALOCAT(JTYP) 

JTP=JTYP+NUM 
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JTP=3-IU(JTP> 
CALL ALOCATCKPPRI) 
10 KUPR=KPPRI+NSTV»(JLI-1) 

IFUTP-3)81,13i,81 
81 IF (NJR) 90,90,80 
C SUPPORT DISPLACEMENTS 
80 KSUP=KPDBP+(JLI-1)*NDJ 

GO TO 102 
C NO SUPPORT DISPLACEMENTS,. .USE KPD8P AS ZERO VECTOR 
90 KSUP = KPDBP 

GO T0U31, 102), JTP 
C PRINT MEMBER FORCES 
15 CALL ALOCAT(MTYP) 
CALL ALOCATUPLS) 
CALL ALOCAT(JMIN) 
CALL ALOCAT<KPPLS,0) 
CALL ALOCAT(KPMNS,0> 
CALL AL0CAT(KPPLS,JLI) 
Ki = KPPLS+JLI 
KPPL = IU(Kl) 
CALL ALGCAT(KPMNS,JLI) 
Ki = KPMNS+JLI 
KPMIN = IU(K1) 
102 IF UZ-IZP) 120,125,120 
120 IZP » IZ 
IHGP * 1 
GO TO 150 
125 IHOP = 2 

150 GO T0tl30,15l,l30,151),IZ 

151 GO TQU52, 153), IHOP 
152 1H0P=JTP 

JTPP^JTP 
GO TO 130 

153 IF(JTPP-JTP)155,154,155 

154 IH0P=JTP+2 
GO TO 130 

155 JTPP^JTP 
IH0P=JTP+4 

130 CALL ANSOUT ( I Z,NUM, IHOP ) 

131 CALL RELEAS(KXYZ) 
CALL RELEAS(KR,JLI ) 
CALL RELEAS(KUV,JLI) 
CALL REL£AS(KPPLS,JLI) 
CALL RELEASUPMNS, JLI) 
CALL RELEAS(KR,0) 
CALL RELEAS(LOADS,0) 
CALL RELEAS(KUV,0) 
CALL RELEAS(KPPLS,0) 
CALL RELEAS(KPMNS,0) 
CALL RELEAS(JPLS) 
CALL RELEASUMIN) 
CALL RELEAS(JINT) 
CALL RELEAS(MTYP) 
CALL REL£AS(KPD8P,0,0) 
CALL RELEAS(KATKA,0,0) 
CALL RELEAS(KPPRI,0,0) 

190 CALL RELEAS(LOADS,JLX) 
RETURN 
300 FORMAT (1H0,//3X, 12 A6) 
302 F0RMAT(1H0,3X,12A6) 
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301 FORHAT ( IH0,3X,12A6//// ) 

END 
* LIST8 
» LABEL 
CANSOUT ANSWER PRINTING ROUTINE - REINSCHMIDT - LGGCHER 1-17-64 

SUBROUTINE ANSOUT ( IZ, NUM, IHOP ) 
C STRESS PROGRAM... STRUCTURAL ENGINEERING SYSTEMS SOLVER 
C IZ = 1, PRINT MEMBER FORCES 
C IZ = 3, PRINT MEMBER DISTORTIONS 
C IZ = 4, PRINT JOINT DISPLACEMENTS 
C IZ = 2, PRINT JOINT LOADS AND SUPPORT REACTIONS 

DIMENSION U(36), IU ( 36 ) , Y ( 6,6) ,T( 6,6 ) , JUNM6) ,V( 12) , 
1 SYSFIL(27),PRGFIL(6), KRAYtlG) 

COMMON U,IU,Y,T,K1,K2,KU,KPMIN,KPPL,KUPR,JT,JTEST,JL0,NM,NP, 
1 KA,KB,KC,KD,JUNK,KRR,KTEM,KSUP,V, 

4CHECK,NMAX,INORM,IS0LV,ISCAN,IIII,IMOD,JJJJ,ICQNT,ISUCC,IMERG, 
5TGP,N1,NL,NT,NREQ»TN,LFILE,TCLER,IPRG,IRST, IRLD, IRPR,SYSFIL» 
8NJ,NB,NDAT,ID,JF,NSQ,NC0RD,iM£TH,NLD$,NFJS,NSTV,NMEMV,IPSI,NMR, 
9NJR,KST0P,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JLD 
COMMON JEXTN,MEXTN,LEXTN, JLCNLOSI , IYOUNG, ISHEAR, IEXPAN, IDENS, 
1 PROFIL, 

4NAME,KXYZ,KJREL,JPL$,JMIN f MTYP,KPSI,MEM8,L0A0S,M0DN,KS,KMKST,KSTD8 
5,KATKA,KPPLS,KPMNS,KUV»KPPRI,KR,KSAV£,KRAY,KDIAG,K0FDG, 
6 IOFDG,LOADN,MEGAO,JEXT, J INT ,KUDBP,KMEGA ,KPDBP, JTYP,MTYP1 ,KBX 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE (U,IU«Y) 
XLOCF(NM,NP) = NM-MNP-1)»JF 
GO TO (10f5vlO v 7} v IZ 
5 GO TO (350,350,370,370,6,6), IHOP 
6 IH0P=IH0P-4 
GO TO 370 
7 GO TO (250,250,270,270,8,8), IHOP 
8 IH0P=IH0P-4 

GO TO 270 
10 GO TO (20, 30), IHOP 
30 GO TO (70, 370, 170), IZ 
20 GO TO (50, 350, 150), IZ 
C PRINT MEMBER FORCES 
50 PRINT 600 
PRINT 601 
GO TO (61,62,63,61,65), ID 

61 PRINT 611 
GO TO 70 

62 PRINT 611 
PRINT 612 
GO TO 70 

63 PRINT 613 
GO TO 70 

65 PRINT 614 
PRINT 615 



70 


IF 


(NUM) 


72,72,71 


71 


LA 


* NUM 






LB 


= NUM 






GO 


TO 73 




72 


LA 


= 1 





LB = MEXTN 
73 CO 100 I = LA, LB 

TEST IF THE I TH MEMBER IS PRESENT 

Kl = MTYP+I 

IF (U(Kl)) 75,100,75 
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75 


KA * JPLS+I 




KB = JMIN+I 




KA = IU(KA) 




KB * IU(KB) 




KC = XLOCFIKPPUI) 




KO = XLOCF(KPMIN,I ) 




Kl = KC+1 




K2 = KC+KSTGP 




PRINT 602,I,KA,(U( J),J=K1,K2) 




00 80 J « 1,KST0P 




Kl = KD+J 




CHANGE SIGNS AT RIGHT END OF MEMBER 




V(J) = -U(K1) 


80 


CONTINUE 




PRINT 602, I,KB,(VU),J = l,KSTOP) 


100 


CONTINUE 


101 


RETURN 




PRINT MEMBER DISTORTIONS 


150 


PRINT 700 




PRINT 701 




GO TO (161,162,163,161, 165), ID 


161 


PRINT 711 




GO TO 170 


162 


PRINT 711 




PRINT 712 




GO TO 170 


163 


PRINT 713 




GO TO 170 


165 


PRINT 715 




PRINT 615 


170 


IF (NUM) 172,172,171 


171 


LA = NUM 




LB = NUM 




GO TO 173 


172 


LA = 1 




LB = MEXTN 


173 


DO 200 I = LA, LB 




TEST IF THE I TH MEMBER IS PRESENT 




Kl = MTYP+I 




IF (U(KD) 175,200,175 


175 


KC = XLOCF<KU,I) 




DO 180 J = 1,KSTCP 




Kl * KC+J 




CHANGE SIGNS OF MEMBER DISTORTIONS 




V(J) = -U(K1> 


180 


CONTINUE 




PRINT 702,I,(VU),J = 1,KST0P> 


200 


CONTINUE 




GO TO 101 




PRINT JOINT DISPLACEMENTS 


250 


PRINT 800 




PRINT 801 




GO TO (261,262,263,264,265), ID 


261 


PRINT 811 




GO TO 270 


262 


PRINT 811 




PRINT 812 




GO TO 270 


263 


PRINT 813 




GO TO 270 
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264 PRINT 811 
PRINT 814 
GO TO 270 

265 PRINT 811 
PRINT 814 
PRINT 815 

270 IF (NUN) 272,272,271 

271 LA = NUM 
LB = NUM 

GO T0(275,310,278,311),IH0P 

272 LA = 1 

LB * JEXTN 

IF(NJR)305,3G5,275 
C JOINT RELEASES, PRINT SUPPORT DISPLACEMENTS 
275 PRINT 817 
278 DO 300 I = LA, LB 

KA = I + JINT 

IF (IUJKA)) 3G0, 300,280 
280 IF (IU(KA)-NFJS)300,3Q0,285 
285 KC=XLOCF(KSUP,(IU(KA)-NFJS)) 

Kl = KC+1 

K2 = KC+JF 

PRINT 702, I,(U(J),J=K1,K2> 
300 CONTINUE 

IF(NUM)101,305,101 
305 IF(NFJS)101, 101,310 
C PRINT FREE JOINT DISPLACEMENTS 

310 PRINT 816 

311 00 330 I = LA, LB 
KA * 1+ JINT 

IF (IU(KA)) 330,330,315 
315 IF (IU(KA)-NFJS) 320,320,330 
320 KC = XLOCF(KUPR,IU(KAH 

Kl = KC+1 

K2 = KC+JF 

PRINT 702,1, (U(J),J=K1,K2) 
330 CONTINUE 

GO TO 101 
C PRINT JOINT LOADS AND SUPPORT REACTIONS 
350 PRINT 801 

GO TO (361,362,363,364,365), ID 

361 PRINT 911 
GO TO 370 

362 PRINT 911 
PRINT 912 
GO TO 370 

363 PRINT 913 
GO TO 370 

364 PRINT 911 
PRINT 914 
GO TO 370 

365 PRINT 911 
PRINT 914 
PRINT 915 

370 IF (NUM) 372,372,371 

371 LA = NUM 
LB » NUM 

GO TO(374,401,373,402),IHOP 

372 LA = 1 

LB =* JEXTN 
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374 
373 



375 

380 



400 



405 
401 
402 



410 
415 



430 

600 
601 
602 
611 
612 
613 
614 
615 
■] 
700 
701 
702 
711 
712 
713 
J 
715 
800 
801 
811 
812 
813 
814 
815 
816 
817 
901 
902 
911 
912 
913 
914 
915 



PRINT 901 

DO 400 I = LA, LB 

KA = JINT + I 

IF (IU(KA)) 400,400,375 

IF (IU(KA)~NFJS) 400,400,380 

KC = XLOCFCKRR, IU(KA>) 

Kl = KC+i 

K2 = KC+JF 

PRINT 702, I,(U{J> ,J=K1,K2) 

CONTINUE 

IF(NUM)405,405,10i 

IF(NFJS>i01,101,401 

PRINT 902 

DO 430 I = LA, LB 

KA = JINT + I 

IF (IU(KA)) 430,430,410 

IF (IU(KA)-NFJS) 415,415,430 

KC * XLOCFCKRR, IU(KA)) 

Kl = KC+1 

K2 = KC+JF 

PRINT 702,1, (UU),J = K1,K2) 

CONTINUE 

GO TO 101 



FORMAT 
FORMAT 



FQRMAT(2I7,2X,6F17.7) 



1H0,3X,13HMEMBER FORCES//) 
14H MEMBER JOINT ) 



BENDING MOMENT ) 



SHEAR Z ,8X,9HTORSI 



1H*,21X,11HAXIAL FORCE ) 

1H+,38X,28HSHEAR FORCE BENDING MOMENT ) 

1H+,21X,45HSHEAR FORCE TORSIONAL MOMENT 

1H+,43X,6HF0RCES,44X,7HM0MENTS ) 

28X,5HAXIAL,6X,11H SHEAR Y ,6X,11H 

13H BENDING Y ,4X f 13H BENDING Z > 

1H0,3X,18HMEMBER DISTORTIONS // ) 

7H MEMBER ) 

I7,9X,6F17.7) 

1H+,16X,16HAXIAL DISTORTION ) 

1H+,33X,33HSHEAR DISTORTION BENDING ROTATION ) 

1H+,16X,50HSHEAR DISTORTION TWIST ROTATIGN BENDING ROTAT 

1H+,38X,11HDIST0RTI0NS,42X,9HR0TATI0NS ) 

1H0,3X,19HJ0INT DISPLACEMENTS //) 

1H0,//7H JOINT ) 

1H+,18X,31HX DISPLACEMENT Y DISPLACEMENT ) 

IH+,58X,8HR0TATI0N ) 

1H+,22X,10HDEFL£CTION,7X,10HX ROTAT ICN,7X,10HY ROTATION ) 

1H+,52X,14HZ DISPLACEMENT ) 

1H+,73X,10HX ROTATION, 7X,10HY ROTAT ION, 7X, 10HZ ROTATION ) 

/1H0,37X,24HFREE JOINT DISPLACEMENTS ) 

38X,21HSUPP0RT DISPLACEMENTS ) 

38X,17HSUPP0RT REACTIONS ) 
/1H0,37X,19HAPPLIED JOINT LOADS) 
1H+,25X,7HX FORCE, 10X,7HY FORCE ) 
iH + ,t>2X,14HBENDING MCMENT ) 

1H+,27X,5HSHEAR,9X,8HX MOMENT , 9X,8HY MOMENT ) 
1H*,59X,7HZ FORCE ) 
1H+,75X,8HX MOMENT, 9X,8HY MOMENT ,9X, 8HZ MOMENT ) 



FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

CNAL,4X 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

ION ) 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

END 
FAP 

RELEASE COMPONENT COUNTER FUNCTION 
R*D,LCGCHER DECEMBER 31,1963 
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COUNT 2C 
LBL COUNT 
ENTRY ICNT 
ICNT CAL* 1,4 

SXA RET, 4 
SXA RET-1,1 
AXT 0,4 
AXT 12,1 
ALS 6 
P8T 

TRA **2 
TXI ♦♦1,4,1 
ALS I 
TIX »-4,l,l 
PXO ,4 
AXT »«,1 
RET AXT »#,4 
TRA 2,4 
END 
« L1ST8 
» LABEL 

CPHAS1B SUBROUTINE PHAS1B LOGCHER - FENVES 1-28-64 
SUBROUTINE PHAS18 

DIMENSION LA6LU2) ,8E I A ( 86 ) , SYSF IL ( 27 ) ,PR8F IL ( 4 ) ,CWFI L ( 49 ) ,U ( 2 ) , 
UU(2) 

COMMON U,IU,A,IA,LABL,BETA,ITA8LE, J, NE, ITS, IB, IS, I L, INDEX, IN t 
1CHECK,NMAX,IN0RM,IS0LV,ISCAN,III,IM0D,JJJJ, iCGNT , I SUCC , IMERG, TOP,N 
21,NL,NT,NREQ,TN,LFILE,TGLER, IPRG, IRST , IRLD , tRPR, SYSF I L ,NJ ,NB ,NDAT , 
3ID,jF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSrV,NMEMV,IPSI,NHR,NJR,IS0DG,N0SQ 
4,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JHIC,JMPC,JLD,JEXTN,MEXTN,LEXTN 
5,JLC,NLDSI,IY0UNG,ISHEAR,IEXPAN,iDENS,NBNEW,NLDG,PRBFIL, 
6NAME,KXYZ,KJREL, JPLS, JMIN,Mi YP ,KPS I ,MEMB ,LOAOS ,MODN,KS,KMKST ,KSTD6 
7,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAV£,KS1,KS2,KS3,KS4,KS5,KS6,KS7, 
8KS8,KS9,KS1G,KDIAG,K0FDG,I0FDG,L0ADN,MEGA0,JEXT,JINT,KUDBP,KMEGA, 
9KPDBP, JTYP,MTYP1,KB, MLOAD,JLCAD, KATR,LINT,K YOUNG, K SHEAR, KEXPAN 
COMMON KOENS.CWFIL 

ECUIVALENCE<U,IU,A,IA),{U(2),IU(2),LABL) 
C JOINT PROCESSSING 

IT = C 
B CHECK=CHECK«C00004774377 
IF(NJ) 100,140,100 
100 NFJS=NJ-NDAT 
NFJS1=NFJS+1 
NBB=NB 
NBNEW=NB 
NDJ=JF»NDAT 

IF(JJC-NFJS) 102,101,102 
B1C1 CHECK=CHECK+COCOC000040Q 
GO TO 103 

102 IT=1 

103 IF(JDC-NOAT) 163,104,163 
B104 CHECK=CHECK+C0C001G0C0C0 

IF(IT) 163,105,163 
105 Jl=l 
J2=NJ 

CALL DEFINE(JINT,JEXTN, 0,0,1) 
CALL 0EFINE{JEXT,NJ, 0,0,1) 
CALL CLEARUINT) 
CALL CLEAR(JEXT) 
CALL ALOCAT(JINT) 
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CALL ALOCATUEXTJ 

CALL ALOCAT(KJREL) 

CO 130 J=1,JEXTN 

IJ=JTYP+J 

IFCIU(IJ) ) 106,130,106 

106 IK=JINT+J 
IL=JLOAO+J 
IGO = IUUJ) 

GG TO (107, 117, 120), IGO 

107 IU(IK)*Jl 
IK=JEXT+J1 
IU(IK)=J 
J1=J1+1 

IS = 1 
NDEX=1 
108 CALL UPADP(IUUL),X,Y,N$Z) 
IF(NSZ-2>130,130,118 

118 CALL ALOCATt JLOAD, J) 
IL=JLOAO+J 
lK=IUUL>+2 
NBL=IU(IK) 

IK=IK+1 
IF(N8L)109, 131,109 

109 DO 116 1=1, NBL 

110 CALL UPADP(IU(IK),INDEX f X,Y) 
IK=IK+IU(IK+1) 

IF(INDEX) 111,110,111 

111 IF(INDEX-NDEX) 112,116,112 

112 IF(IS) 115,1121,115 
1121 IF(NJR) 113,115,113 

113 IL=KJREL+1 
NR=5«IUUL) + IL 
IL=IL+i 

DO 114 K=IL,NR,5 
IF(J-1U(K>) 114,116,114 

114 CONTINUE 

115 CALL PRER2(10,I,J) 

B CHECK=CHECK*777777757777 

116 CONTINUE 
GO TO 131 

117 IUCIK)=J2 
IK=JEXT+J2 
IU(IK)=J 
J2=J2-1 

IS = 
NDEX=5 
GO TO 108 

120 IU(IJ)=0 

CALL UPADP(IU(IL>,X,Y,NSZ> 
IF(NSZ-2)130,130,119 

119 CALL ALOCAT(JLOAD,J) 
IL=JLOAD+J 
IK=IU(lL>+2 

NBL = IUUK) 

IF(NBL) 121,129,121 

121 IXX=3 

DO 124 1=1, NBL 
IL=JLOAD+J 

122 IK=IU( ID + IXX 

CALL UPADPUUUK), INDEX, JCILD) 
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IXX=IXX+IU(IK+1) 
IFUNDEX) 123,122,123 

123 CALL ALOCAT(LOADS,JC) 
IL=LOADS+JC 
IM=IU(IL) + UD+14 
IU(IM)=0 

124 CALL RELEAS(LGADS,JC) 
IL=JLOAD+J 
IM=lUUL) + i 
IU(IM)*3 
IUUM+1)=0 

129 CALL CEFINEULOAD,J,2,0,0,l) 
131 CALL RELEASULGAD, J) 

130 CONTINUE 

CALL RELEASCJEXT) 
IFCNJRU39, 139,135 

135 IF(I0)139,139, 136 

136 60 T0U351, 1352, 1353, 1354, 1355), ID 

1351 IA=3 

GC TO 1356 

1352 IA=35 

GO TO 1356 

1353 IA=28 

GO TO 1356 

1354 IA = 7 

GO TO 1356 

1355 IA=63 

1356 IL=KJREL+1 
NJR=0 

NR=*5«IU(IL) + IL 
IL=IL+1 

DO 137 K=IL,NR,5 

IF(IU{K))132,i37,132 
8132 X=U(K+i)»A 

NJR*NJR+ICNT(X) 

IK=JTYP+IU(K) 

IF(IU(IK)-2)133,137,133 
133 IFUUU+1) ) 134,137, 134 
8 134 CHECK=CHECK«777777767777 

CALL PRER2(19,IU(K),A) 

137 CONTINUE 

139 CALL RELEASUJREL) 
C MEMBER PROCESSING 
140 IF<N8)1402, 170, 1402 
1402 CALL DEFINE(KATR,0,NJ, 1,0,1) 

CALL ALOCATCMTYP) 

NMR*0 

00 160 I=1,MEXTN 

IJ=MTYP+I 

NMR*NMR+ICNT(IU(IJ)') 

IFUUCIJ)) 142,151,142 

142 IJ=JPLS+I 
JP=IU(IJ) 

IFUP) 1420,1420,1419 

1419 IF(JP-JEXTN) 1421,1421,1420 

1420 CALL PRER2(16,JP,I ) 

B CHECK=CHECK*777777757777 

1421 IJ=JTYP+JP 
IFCIUUJ)) 143,150,143 

143 IJ=JMIN+I 
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JM=IU( IJ) 

IF(JM) 1430,1430,1429 

1429 IF(JM-JEXTN) 1431,1431,1430 

1430 CALL PRER2(16,JM,I) 

8 CHECK=CHECK»777777757777 

1431 IJ=JTYP+JM 
IFIIUCIJ)) 160,150,160 

150 IK*MTYP+I 
NMR=:NWR-ICNT(IU(IK)) 
IU(IK)*0 

CALL DEFINE(*E*8, 1,0, 0,0,0) 
CALL PRER2(17,I, J) 
JMIC=JMIC-1 
JMPC=JMPC-l 

151 IL=ML0AD+I 

CALL UPADPUUUL),X f Y f NSZ) 
IF(NSZ-2)1511, 160, 1511 
1511 CALL ALOCAKMLOAD,!) 
IL=MLOAD+I 
IK=IU( ID+2 
NBLMUUK) 
IF(NBL) 152,159,152 

152 IXX=3 

DG 155 M=i,N6L 
IL=MLGAD+I 

153 IK*IU(IL)+IXX 

CALL UPADP(IUUK), INDEX, JC,ILD) 
IXX=IXX+IU{ IK+1) 
IF(INDEX) 154,153,154 

154 CALL ALOCAT(LOAOS,JC) 
IL=LOADS+JC 

IM=IUt ILKILO+14 
IU(IM)=0 

155 CALL RELEAS(LOAOS,JC) 
IL=MLGAD+I 

IM=IU( ID + 1 

IU(IM)=3 

IUUM+1)=0 

159 CALL DEFINE(WLCAD, 1,2,0,0,1) 
CALL R£LEAS(*LCAD,I> 

160 CONTINUE 

CALL RELEAS(MTYP) 
CALL RELEAS(KEWB,0) 
163 IF(JMIC-NB) 165,164,165 
B164 CHECK=CHECK+C00000G01C00 

165 IF(JMPC-NB) 170,166,170 
B166 CHECK=CHECK+C0C0C0002COO 
C LOAD PROCESSING 

170 IF(NLOS) 171,198,171 

171 IF(NLDG-NLDS) 200,172,200 
B172 CHECK=CHECK+C00002000000 

CALL DEFINE (LINT, LEXTN, ,0, 1 ) 

CALL ALOCATCLINT) 

NLDSI=0 

JO=NLOS 

CO 174 L»lt LEXTN 

CALL ALOCAT(LOADS,L) 

IJ=LOAOS+L 

IK=IUUJ) + 1 

CALL UPADPUU(IK),LT,X,Y) 
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IJ = LINT ♦ I 

lU(IJ) * 

IFCLT-1) 174,173,175 
175 IUUJ)=JD 

J0*J0-1 

GO TO 174 
173 NLDSI=NLDSI+l 

IUUJ)=NLDSI 
174 CALL RELEAS(LOADS,L) 

GO TO 200 
B198 CHECK=CH£CK»777777777767 
C METHOD TEST 

G200 IFUHETH-1) 210,202,201 
C201 CHECK=CHECK#777773777777 
C GO TO 210 

8200 CHECK=CHECK+000000000040 

NSTV=NFJS*JF 

NMEMV=HEXTN»JF 

NDSQ=NJR«NJR 
C FINAL TEST 

8210 FIN*0C0007777777 

CALL ITEST(CHECK,FIN,15,ISUCC) 

IF(ISUCC) 300,211,300 

211 IS0LV=2 
ISUCC=1 

IFUCONT-l) 220,212,220 

212 CALL SAVE 
220 IT=0 

IFCIPSI1 226,227,226 

226 IT=1 

227 CALL RELEAS<KPSI,0,IT) 
CALL RELEASULOAD,0) 
CALL R£LEAS(MLOAD,0) 
CALL RELEASUTYP) 
CALL RELEAS(KXYZ) 
CALL RELEAS(L0A0S,0) 

228 CALL RELEASUINT) 

229 CALL DEFINE(KS,HEXTN«{NC0RD+1), 0,0,1) 
CALL DEFINE{KMKST,0,HEXTN,1,G,1) 
CALL DEFINE<KSTDB,0,H£XTN, 1,0,1) 
CALL DEFINE<KPPLS,0,NLDS, 1,0,1) 

CALL DEFINE(KPMNS,0,NLDS, 1,0,1) 

CALL DEFINECKUV ,0 ,NLDS» 1 ,0, 1 ) 

CALL DEFINEUPPRI,NLDS»NSTV,G,0,1) 

CALL DEFINE ( KD I AG, 0,NJ, 1,1,1) 

CALL D£FIN£(K0FDG,0,N8, 1,1,1) 

CALL ALOCAT<KPPLS,0) 

CALL AL0CAT(KP*NS,0) 

CALL ALOCAT{KUV,0) 

DO 230 I=1,NLDS 

CALL DEFINEUPPLS,I,MEXTN*JF,0,0,1) 

CALL DEFINEUPMNS, I ,M£XTN»JF ,0,0, 1 ) 

230 CALL DEFINECKUV, I, MEXTN*JF, 0,0,1) 
CALL RELEASUPPLS.O) 

CALL RELEASUPWNS.O) 
CALL RELEAS(KUV,0) 
CALL ALOCAT(KDIAG,0) 
CALL AL0CAT(K0FDG,0) 
CALL ALOCAT(KMKST,0) 
CALL ALOCAT(KSTOB,0) 
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CO 250 I = 1,NJ 
250 CALL DEFINEUDIAG, I,NSQ,0,0,1) 

DO 260 I = l«MEXtN 

CALL DEFINE(KSTDB,I,NSQ,0,0,1) 
260 CALL DEFINEUMKST, I,NSQ,0,0,1) 

00 270 1=1, NB 
270 CALL DEFINE(K0FDG,I,NSG,0,0,1) 

CALL RELEAS(KDIAG,0) 

CALL RELEAS(KOFDG,0) 

CALL RELEAS(KSTD6,0) 

CALL RELEA$(KMKST,0) 

CALL ALOCAT(KATR,0) 

CALL ALOCAT(MTYP) 

CALL DEFINEUOFDG, 0,0, 1,0,0) 

CALL ALOCAT(I0FOG,0) 

CALL DEFINEUOF0G,0,NJ, 1,1,1) 

CO 141 1=1, NJ 

CALL DEFINE(KATR,I,7,0,0,1) 

CALL ALOCAT(KATR,I) 

IK=KATR+I 

IL=IU{ IK) + 1 

IU(IL)=0 
141 IU(IL+l>=7 

DO 404 I=i,M£XTN 
i IJ=MTYP+I 

IFUUCIJ)) 401,404,401 
401 IJ=JPLS+I 

JP=iUUJ) 
! IJ=JMIN+I 

JM=IUUJ) 
| 144 U = JINT+JP 

IJJ=IU(IJ) 

IS=i 
I CO 147 M=i,2 

! JPI=IU(IJ> 

1K=KATR+JPI 

IL=IU(IK)+1 

N6RI = IUUL) 

IUUL)*NBRI + 1 

N$ = IUUL + i> 

IFCNBRI-NS+2) 146,145,145 

145 NS=NS+5 
IU(IL+1)=NS 

CALL DEFINE(KATR,JPI,NS, 0,0,1) 
IK=KATR+JPI 

146 IL=IU( IKJ+NBRI+3 
IUUL)=i*IS 
I$=-l 

147 IJ=JINT+JW 
IK=IOFDG*XHAXOF(IJJ,JPI) 
IU(IK)*IU(IK)-1 

404 CONTINUE 

DO 405 1=1, NJ 
| IFU-NFJS) 407,407,406 

! 406 IJJ*0 

GO TO 408 

407 IJJ=30 

408 IK=IOFDG-U 

NS=-IUUK) + 1+XMIN0F(I/5,(I*NB)/(NJ*10),IJJ) 
| IU(fK)=0 



296 



405 CALL DEFINEUOFDG, I,NS,0,1,1) 

CALL RELEASUOFDG,0) 

CALL RELEAS(MTYP) 

CALL RELEAS(JPLS) 

CALL RELEASUMIN) 

DO 162 1=1, NJ 
162 CALL RELEAS(KATR,I) 

CALL RELEAS(KATR,0) 

CALL RELEASUINT) 

GO TO 301 

300 CALL PRERR{4) 
ISUCC = 2 

301 RETURN 
END 

* LIST8 

* LABEL 

CSAVE SUBROUTINE FOR SAVING INITIAL DATA SPECIFICATION - LOGCHER 1-/-64 

SUBROUTINE SAVE 

DIMENSION LA8LU2) ,BETA( 90) , SYSF IL ( 27 ) ,PRBFIL { 10 ) ,CWF IL< 53 ) ,U ( 2 ) , 
1IU(2) 

COMMON U,IU,A,IA,LABL,BETA,IB, IS, IL , INDEX, IN, 
iCHECK,NMAX,INORM,ISCLV,ISCAN,III,IMOD,JJJJ,ICONT,ISUCC,IMERG,TCP,N 
21,NL,NT,NREQ,TN,LFILE,T0LER, IPRG, IRST, IRLD, I RPR, SYSF IL, 
3NJ,NB,NDAT, ID , JF ,NSQ, NCORD, IMETH,NLDS,NF JS,NS TV, NMEMV, I PS I ,NMR f N JR 
4,IS0DG,NDSG,NDJ, IPD8P, IUDBP,N8B,NFJS1 , J JC , JOC, JMIC, JMPC, JLO, JEXTN, 
5MEXTN,LEXTN,JLC,NLDSI,PR6FIL, 

6NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ACS,M0DN,KS,KMKST,KSTDB 
7,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KS1,KS2,KS3,KS4,KS5,KS6,KS7, 
8KS8,KS9,KS10,KDIAG,KOFDG,IOFDG,L0ADN,M£GAO,J£XT, JINT ,KUDBP ,KMfcGA, 
9KPDBP,JTYP,MTYP1,K8,MLGAD,JlCAD,KATR,LINT,CNFIL 

EQUIVAL£NCE(U,IU,A,IA),(U{2),IU{2),LABL) 
C THIS ROUTINE REPLACES THE DUMMY ROUTINES 

CALL UPADP <NL,A,B,ML) 

KSAVE=32442-ML 

JJJJ=LFILE 

CALL FILES(2,1,JJJJ,KSAVE,T0P) 

RETURN 

END 

* FAP 

COUNT 50 
ENTRY ITEST 
LBL ITEST 

* SUBROUTINE ITEST ( A,B,L, I ) 

♦STRESS PROGRAMMING SYSTEM ... VERSION IIA 
♦S.J.FENVES 3/21/63 

* I = IF 8 LOGICALLY CONTAINED IN A, 1 OTHERWISE 
•IF L=C, NO DIAGNOSTIC PRINTING 

»iF L NOT 0, PRINT L+BIT POSITION OF B NOT CONT. IN A 



ITEST SXA 


END, 4 


PLANT LINK 


CAL* 


1,4 


A 


ANA* 


2,4 


AND B 


ERA* 


2,4 


EXCL. OR B 


TZE 


OK 


IF ZERO, OK 


SLW 


TEMP 


NOT ZERO, SAVE 


CAL 


ONE 




SLW* 


4,4 


I = 1 


NZT* 


3,4 


TEST L 


TRA 


END 


ZERO-NO PRINT 


CAL* 


3,4 
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SLW 


L 


GET L 




CAL 


TEMP 


GET DIFFERENCE 




AXT 


0,4 


SET TO COUNT SHIFTS 


BACK 


LBT 




TEST LOW BIT 




TRA 


NEXT 


ZERO OK 




SLW 


TEMP 


SAVE 




PXO 


,4 


GET INDEX 




ADO 


L 






SLW 


IPR 


PRINT PARAMETER 




SXA 


SAVE, 4 


SAVE INDEX 




CALL 


PRERR,IPR 






CAL 


TEMP 


RESTORE 




LXA 


SAVE, 4 




NEXT 


ARS 


I 


SHIFT 




TXL 


INC, 4, 34 


TEST 




TRA 


END 




INC 


TXI 


BACK, 4,1 




OK 


STZ* 


4,4 




END 


AXT 


0,4 






TRA 


5,4 




ONE 


OCT 


0OCG010CO00O 




TEMP 


PZE 






L 


pie 






I PR 


PIE 






SAVE 


P26 







END 

* LISTS 

* LABEL 
CMAIN2/6 

DIMENSION Y(6,6), T (6,6 ) ,Q{6,6 ) ,U C 36) , IU { 36 ) ,SYPA(4Q ) ,FILL (6 ) 

COMMON U,T,Q,CHECK,NMAX,IN0RM,IS0LV,ISCAN,UII,IMOD,ILINK,ICCNT, 
1ISUCC,SYPA,NJ,NB,NDAT,ID,JF,NSQ,NCCRD,IMETH,NLDS,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR,IS0DG,NDSQ,NDJ,SDJ,NPR,NBB,NFJS1,JJC,JDC, 
3JMICJMPC, JLD,JEXTN,MEXTN,LfcXTN,JLC,NLDSI»IYOUNG,ISHER,IEXPAN, 
4IDENS,FILL, 

5NAME,KXYZ,KJREL, JPLS , JMIN, MTYP , KPS I ,MEMB , 

6L0ADS, INPUT,KS,KMKST,KSTD8,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR,KMK, 
7KV,K33,LA2R ,LA2RT,NV ,NTP ,NSCR7,NSCR8,NSCR9 ,NSCRlO,KDl AG ,KQFD 
8G,I0FDG,LDNM,M£GA0,JEXT,JINT,KUDBP,KMEGA,KP0BP,JTYP,MTYPl,KB,MLOAD 
9,JL0A0,KATR,LEXT,KYGUNG,KSHER,KEXPAN,KDENS 

EQUI VALENCE (U { 1 ) , IU ( 1 ) ,Y ( 1 ) ) 

CALL MEMBER 

ISUCC=ISUCC 

GO TO (1,20) ,ISUCC 

1 IS0LV=3 
IF(NMR)2,3,2 

2 CALL MRELES 
ISUCC=ISUCC 

GO TO (3,20),ISUCC 

3 IS0LV=4 

CALL CHAIN(3,A4) 
20 CALL CHAIN(1,A4) 
END 

* LABEL 

* LIST8 

* SYMBOL TABLE 
SUBROUTINE MEMBER 

C LEON R.L.WANG 

C STRESS PROGRAM.. .STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C VERSION III. ..27 AUGUST 1963 BY KENNETH REINSCHMIDT 
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C MAIN SUBROUTINE PERFORMS ALL MEMBER COMPUTATIONS 

C DESCRIPTION OF NOTATIONS 

C JM^NAME OF A MEMBER 

C NB ^NUMBERS OF MEMBERS 

C NP=+NGDE 

C NM*-NODE 

C MTYP=TYP£ OF MEMBER GIVEN 

C MTYP{l)*SECTION PROPERTIES GIVEN - PRISMATIC MEMBER 

C MTYP<2)=LQCAL STIFFNESS OF MEMBER GIVEN 

C MTYP(3)=L0CAL FLEXIBILITY OF MEM8ER GIVEN 

C MTYP(4)=MEMBER OF STRAIGHT VARIABLE SECTION 

C MTYP(5)=COMPUTE STEEL SECTION PROPERTIES 

C JF=DEGREE OF FREEDOM 

C ID=TYPE OF STRUCTURE 

C ID(1)=PLAN£ TRUSS 

C I0(2)=PLANE FRAME 

C IDC3)=PLANE GRID 

C ID(4)=SPACE TRUSS 

C ID<5)=SPACE FRAME 

C Y=FLEXIBILITY OR STIFFNESS MATRICES 

DIMENSION U(36),IU(36),Y{6,6),T(6,6),V(6),W{6>,FILL( 8), 
1 SYSFIL(27),PRCFIL<6>, KRAY( 10 > , 8L(4) 

COMMON U,IU,Y,T,V,W,JLD,NLS,H,JT,J,K,JM,N,NS,L,BL,FILL,EGO,S» 
4CHECK,NMAX, INORM,ISOLV,ISCAN,IIlI,IMOD,JJJJ,ICGNT,ISUCC,IMERG, 
5T0P,N1,NL,NT,NREQ,TN,LFIL£,TCLER,IPRG, IRST , IRLD, IRPR , SYSFIL , 
8NJ,NB,NDAT,ID,JF»NSQ,NC0RD,iMETH,NLDS,NFJS,NSrV,NM£MV,IPSI,NMR, 
9NJR,ISGDG,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,J0C,JMIC,JMPC,JXX 
COMMON JEXTN,MEXTN, LEXTN,JLC,NLDS I, I YOUNG, I SHEAR, I EXP AN, IDENS, 
1 PROFIL, 

4NAME,KXYZ,KJREL» JPLS, JM IN, MTYP,KP SI, M6MB, LOADS, MOON, KS,KMKST,KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6 IGFDG,LOADN,MEGAO,JEXT,JINT,KUDBP,KMEGA,KP08P,JTYP,MTYP1,K8 
7,ML0AD,JL0AD,KATR,LEXr,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE <U,IU,Y) 
CALL ALOCAT (KXYZ) 
CALL ALOCAT (JPLS) 
CALL ALOCAT (JMIN) 
CALL ALOCAT (MTYP) 
CALL ALOCAT (KS) 
CALL ALOCAT(KMKST,0) 
H=0.0 

IF (IYOUNG-1) 709,400,703 
709 EGO = 1.0 
GO TO 410 
400 CALL ALOCATCKYOUNG) 
C 

C TEST FOR MOO OF EL OR SHEAR MOD NOT SPECIFIED 
C 

JS=0 

L=KYOUNG 
413 NS=G 
406 CONTINUE 

CO 401 JM=1,MEXTN 

I=L+JM 

IF(U(I))403,403,404 

403 IF(H)401,401,405 

404 H=U(I) 
IF(NS)408,408,401 

408 NS=1 

GO TO 406 
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405 L(I>=H 

CALL PRER2U4, JM,H) 
401 CONTINUE 

IF( JS)410,410,430 
703 EGO = U(191) 
410 IF (ISHEAR-1) 430,420,430 
420 CALL ALOCAT(KSHEAR) 
H = 0.0 
JS = 1 

L=KSHEAR 
GO TO 413 
430 CALL ALOCAT (MEMB,0) 
1 DO 3000 JM=1,MEXTN 
C TEST IF JM TH MEMBER IS PRESENT IN THIS MODIFICATION 
C UNPACK MTYP AND NS 
IA=MTYP+JM 

CALL UPACW(U( IA) ,IX,IX,L,NS, IX) 
IF (L) 100,3000,100 
100 CALL ALGCAT {MEM.B,JM) 
CALL ALOCAT(KMKST,JM) 
NS = NS/7 
JU=KMKST+JM 
JU=IU( JU) 
IK=MEMB+JM 
JT=IU< IK) 
C FIND JOINT (EXTERNAL) NUMBERS 
NP = JPLS+JM 
NM = JMIN+JM 
NP = IU(NP) 
NM = IU(NM) 
C COMPUTE LENGTH 
C STORE S 

KM = KXY2 + (NM-1)*3 + 1 
KP = KXYZ ♦ (NP-1)*3 + 1 
JKS=KS+(JM-l)*(NCORD+l)+l 
U< JKS)=0.0 
DO 5 I=1,NCGRD 
JKSS=JKS+I 
UUKSS)=U(KM)-U(KP) 
KM = KM + I 
KP = KP ♦ 1 

LUKS)=U(JKS)+U(JKSS)**2 
5 CONTINUE 

U( JKS)=SQRTF(U(JKS) ) 
S=U(JKS) 
DO 8 1=1, JF 
DO 8 J=1,JF 
8 Y(I,J)=0. 
KA = JT+1 

IF (IYCUNG-1) 720,702,720 
702 I = KYOUNG+JM 
EGO = U(I) 

720 IF (ISHEAR-1) 701,721,722 
701 H = 0.4 

GO TO 780 

721 I = KSHEAR+JM 
H = U( D/EGO 
GO TO 780 

722 H = U(192)/EG0 

780 GO TO (10, 20, 21, 15, 900), L 
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C PRISMATIC MEMBER 

10 NS = I 
C SEPARATE TRUSSES FOR SHORT PROCESSING 
GO TO (38,15,15,38, 15), ID 
15 STOP=S 

CALL MEMF0D(STGP,U(KA),1) 
GO TO 600 
C SEPARATE TRUSSES 

20 GO TO (40,24,24,40,24), ID 

21 GO TO (50,24,24,50,24), ID 
24 00 25 1=1, JF 

00 25 J = l, JF 

JS=JT+ JFHI-11+J 
25 Y(I,J)=U(JS) 

GO TO (900, 710, 650), L 
C TRUSSES WITH PRISMATIC BARS ONLY 
C FIND STIFFNESS DIRECTLY 

38 Y(l,l) = U(JT+1)«EGQ/U(JKS) 

GO TO 710 
40 Y(1,1)=U(JT+1) 

GO TO 710 
50 YU,i) = 1.0/U(JT+i) 

GO TO 710 
C INVERT THE FLEXIBILITY MATRIX 
600 GO TO (620,650,650,620,650), ID 
620 Y(l,l)=l./Y(l,l) 

GO TO 710 
650 00 700 1=1, JF 

00 700 J=l, JF 

T(I,J)=0. 
700 T(I,I)=1. 

A=l* 

M1=XSIMEQF(6,JF,JF,Y,T,A,V) 

GO TO (710, 740, 730), Ml 
C INVERSION OF FLEXIBILITY/STIFFNESS IS SINGULAR 
730 CALL PRER2(1,JM,0.0) 

GO TO 745 
C INVERSION OF FLEXIBILITY/STIFFNESS IS UNDER/OVER FLOW 
740 CALL PRER2(2,JM,0.0) 
745 ISUCC=2 

GO TO 900 
C STORE K* 
710 DO 715 1=1, JF 

DO 715 J=1,JF 

JX=JU+JF*(I-1)+J 
715 U(JX)=Y(I,J) 
900 CALL RELEAS (MEMB,JM) 

CALL RELEAS(KMKST.JM) 
3000 CONTINUE 

CALL RELEAS(KYOUNG) 

CALL RELEAS(KSHEAR) 

CALL RELEAS (KXY2) 

CALL RELEAS (JPLS) 

CALL RELEAS (JMIN) 

CALL RELEAS (MTYP) 

CALL RELEAS (KS) 

CALL RELEAS(KMKST,0) 

CALL RELEAS (MEMB,0) 

RETURN 

END 
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» LIST8 

» SYMBOL TABLE 

* LABEL 

SUBROUTINE MRELES 
C S.MAUCH STUCT. ANALYSIS PROG. RELEASES 

C THIS ROUTINE MODIFIES KSTAR TO ACCOUNT FOR FORCE CONSTRAINTS. 
C NMR=NUMBER OF MEMBER RELEASES SPECIFIED 

C ASSUMES THAT CARRY OVER MATRIX OF THE MEMBER INVOLVES ONLY THE LENGTH 
C IUR=CALLING ORIGIN! MEMBER OR JOINT RELEASE) 

DIMENSION Y{6,6),T(6,6),Q(6,6),U(36),IU<36) ,SYP A (40 ) ,FILL (6 ) 
COMMON U, T,C, CHECK, NMAX,INORM, I SOLVE, I SCAN, III I , IMOD, JJ J J, ICGNT, 
USUCC,SYPA,NJ f NB,NDAT,ID,JF,NSQ,NCORD,IMETH,NLDS,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR,ISOOG,NDSQ,NDJ,SDJ,NPR,N8B,NFJS1,JJC,JOC, 
3JMIC,JMPC,JLD,JEXTN,M£XTN,LEXrN,JLC,NLDSI,IY0UNG, ISHER.IEXPAN, 
4IDENS.FILL, 

5NAME,KXYZ,KJREL,JPLS,JMIN, MTYP ,KPSI ,MEMB , 

6LGADS t INPUT,KS,KMKST,KSTDB,KATKA,KPPLS,KPMlN,KUV f KPPRI,KR,KMK, 
7KV,K33,LA2R ,LA2RT,NV ,NTP ,NSCR7,NSCR8 ,NSCR9 ,NSCR1Q,KD IAG, KOFD 
8G,I0FDG,LDNM,M£GA0,J£XT, J INT ,KUDBP,KMEGA ,KPD8P, JTYP,MTYP1 , KB, MLOAD 
9,JL0AD,KATR,LEXT,KY0UNG,KSHER,KeXPAN,KD£NS 
EQUIVALENCElU(i) ,IU(l),Y{i)) 
CALL ALOCAT(MTYPl) 
CALL CEFINE<NTP, 36,0, 1,1) 
CALL DEFINE(NV,6,0,1,1) 
CALL ALOCAT(NTP) 
CALL ALOCAT(NV) 
CALL ALOCAT(KS) 
CALL ALOCAT(MTYP) 
NPR=0 

CALL DEFINE(KMEGA,0,M£XTN f 1,C,1) 
CALL ALOCAT(KMEGA,0) 
NMRR^NMR 

CO 6000 JM=1,MEXTN 
C CLEAR DECREMENT OF MTYP1 (KMEGA REFERENCE FOR + MRELES) 

LMREL=MTYP1+JM 
B U(LMREL)=U(LMREL)*7C0000777777 
LMREL=MTYP + JM 
MREL=IUILMREL) 
B 95 8R£L={BREL«G77777000000) 
MM=MREL 

EGU I VALENCE (BREL,MR£L) 
IF(MREL)60C0,6000,93 
93 MRELSV=MREL 
92 KMKS=KS+(JM-1)»(NC0RD+1)+1 
700 SDJ=U(KMKS) 
SS=SDJ 
701 CALL ALOCAT<KMKST,JM) 
IE=KMKST+JM 
KMSTP=IU(IE) 

CALL CCPY(Y,Y,JF,1,KMSTP) 
410 ITR=0 
B 55 BBLl=BREL*O00077CO0OO0 

39 IF(BBLl) 38,262,38 
C 

C BRANCH TO 262 MEANS RELEASE IS ONLY AT ♦ END 
C NRE IS USED TO TEST FOR TOTAL RELEASE 
C NRE=1 MEANS ONLY PLUS END REL. 
C NRE=-1MEANS ONLY MINUS END REL. 
C NRE=0 MEANS PLUS AND MINUS END REL. 
C 
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262 NRE*1 

GO TO 31 
38 IE=0 
B IF(8REL»0077C0000000)24,23,24 

23 NRE=(-1) 

C 23 MEANS RELEASE IS ONLY AT - END 
GO TO 31 

24 NRE*0 

31 IFUD-4)22, 8,22 

22 IF(I0-1)56, 8.56 
C IF A TRUSS MEMBER IS OVER RELEASED STIFFNESS IS JUST SET ZERO NO FATAL MISTAKE 

8 GO TO 11 
C 

C IF TRUSS IS RELEASED STIFFNESS IS SET TO ZERO KMEGAO IS NOT SET UP 
C THE CORRESPONDING CHECK IS MADE IN MREC 

C IF BOTH ENDS OF A TRUSS ARE RELEASED MEESAGE IS PRINTED 
C 

56 IF(NRE)3,3,260 

II CALL COPY<Y,Y,JF,0,0) 
C KSTAR IS ZERO 

GO TO 510 
4 CALL CARRYUD,JF,SS) 
10 CALL MAMUL<Y,T t T,JF f JF,0) 
C KCSTAR IS NOW IN Y 

500 IFUTR)3,3,510 

C ITR=1 MEANS ♦ END IS CONSIDERED AND BOTH ENDS ARE REL. 
C SET UP PERMUTATION MATRIX IN T 
3 IC=MR£L 
IDD=ID 

CALL PERMUT(IC,JF,IDD) 
450 IC=IC 

IFU0D)501, 50,501 
C IF IDD IS NON-ZERO LAMBDA IS UNITY 
C IC IS RETURNED FROM PERMUT 

50 CALL MAMUL(Y,T,T,JF,JF,Q) 
C NEXT STEP PARTITIONING AND IMPOSE CONSTRAINT. 
C KCPSTAR IS NOW IN Y 

501 JC=JF-IC 
NMRR=NMRR-JC 
IF(JF-JC>281,281,280 

C 

C JC=NUMBER OF RELEASES 
C 281 MEANS THERE IS A TOTAL RELEASE 

C 11 MEANS TOTAL RELEASE IS AT PLUS OR AT MINUS END. BUT NO RELEASE AT OTHER END 
C 
281 IF(NRE)11,230,111 

III CALL FIXM<0,0,JM) 

C NON-TRUSS MEMBER WITH TOTAL RELEAS AT START 
GO TO 11 
230 ISU=5 

GO TO 623 
6614 B0L=466525512643 
630 PRINT 620,K0UT,B0L 
620 FQRMATU10,A8) 

GO TO 600 
623 ISUCC=2 

CALL PRER2(ISU,JM, MRELSV) 
GO TO 600 
2 80 IF( JC- 1)200, 200, 201 
201 DO 211 1=1, JC 
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IP=I+IC 

DO 211 J=l,JC 

JP=J+IC 

IN=NTP+I*(J-i>»6 
211 U(IN)=Y(IP,JP> 

CALL C0PY(Q,Q,JF,-2,0) 
2100 C=1.0 

JQ=JC 
2111 CALL BUGER(6,JQ, JQ,NTP,72,C,NV ) 
C PULL KCPSTAR22 OUT OF KCPSTAR AND INVERT IT. 

KOUT=21il 

GO TO (203, 614,230), JQ 
200 YJFA*Y(JF,JF) 

IF{YJFA)232,230,232 
232 IN=NTP+1 

UUN) = 1./YJFA 
C FORM KCPST12*KCPST22(-1)*KCPST21 
C KCPST22(-1) IS IN TP 
203 DO 2160 L=1,JF 

00 2160J=1,JF 

IF<IC-L>219,218,218 

218 IF(IC-J)219, 217,217 

219 Q(L,J)=0.0 
GO TO 2160 

217 Q(L,J)=YU,J) 

CO 216 1*1, JC 

DO 216 K=1,JC 

IIC=I+IC 

KIC=K+IC 

IN=NTP-U + <K-1)«6 
216 Q(L,J)=Q(L,J)-Y(L, I IC!«U( IN)«Y(KIC, J) 
2160 CONTINUE 
C REPLACE RESULT INTO Y 

IF{NREU>240,220,240 

240 IF(IE-U220,241,220 

241 CALL FIXMUC,MREL,JM) 

220 CALL C0PY(Y,Q,JF,1,0) 

C 220 COPIES RESULT OF 2160 INTO Q 
222 S=S 

IDD=ID 
IN =MREL 

CALL P£RMUT(IN,JF,IDD) 
229 IF(IDD)506,221,506 
C KCPPSTTILOE IS NOW IN Y. UNPERMUTATE. 

221 CALL MAMUL(Y,T,T,JF,JF,1) 
C 

C END OF SEPAR 
C 
506 IF(IE>260,260,250 
260 IE = 1 

MREL=MREL/64 
IF(MREL)4,510,4 
250 SS=-SDJ 
ITR=1 
C ITR=1 SIGNIFIES THAT BACK TRANSFORMATION TO PLUS START IS TO BE MADE 
C 250 INVERTS TCSTAR FOR 8ACKTRANS FORMATION. 

GO TO 4 
510 ISU=KMKST+JM 
KMSTV*IUUSU) 
515 CALL C0PY(Y,Y,JF,2,KMSTV) 
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CALL RELEAS(KMKST,JM) 
600 IF (NMRR) 6001,600 1,6000 
6000 CONTINUE 
6C01 CALL RELEASiNTP,C f O) 

CALL RELEAS(NV,0,0) 

IF(NPR)6003, 6003,6002 

6002 CALL RELEAS(KMEGA,0) 
CALL RELEAS(MTYPl) 

6003 RETURN 
END 

* LIST8 

* LABEL 

* SYMBOL TABLE 

SUBROUTINE MEMFOD (STOP,SP, IFOD) 

C LEON R. WANG RM 1-255, EXT. 2117 

C STRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C APRIL 16, 1963 

C MAY 7, 1963 

C VERSION III. ..27 AUGUST 1963. ..KEN REINSCHMIDT 

C CORRECTION FOR REARRANGING DATA STORAGE ALSO INCLUDING SHEAR 

C DEFORMATION 

C THIS SUBROUTINE COMPUTES F* OF A NONPRISMATIC STRAIGHT MEMBER 

C AS WELL AS PRISMATIC MEMBER 

C STOP=LENGTH OF MEMBER 

C THIS SUBROUTINE CAN ALSO COMPUTE CANTILEVER DEFLECTION AT RIGHT 

C END DUE TO A CONCENTRATED LOAD 

C STOP^DISTANCE OF APPLIED LOAD FROM LEFT END 

C DESCRIPTION OF NOTATIONS 

C JM=NAME OF A MEMBER 

C Y=FLEXIBILITY MATRICES 

C ID=TYPE OF STRUCTURE 

C ID<n=PLANE TRUSS 

C ID(2)*PLANE FRAME 

C ID(3)=PLANE GRID 

C ID(4)=SPAC£ TRUSS 

C ID(5)=SPACE FRAME 

C SECTION PROPERTIES ARE IN SP,NOT COMPACTED. 

C MTYP=TYPE OF MEMBER GIVEN 

C MTYP(U = S£CTION PROPERTIES GIVEN 

C MTYP(2)=L0CAL STIFFNESS OF MEMBER GIVEN 

C MTYP(3)=L0CAL FLEXIBILITY OF MEMBER GIVEN 

C MTYP(4)=MEMBER OF STRAIGHT VARIABLE SECTION 

C MTYP(5)=C0MPUT£ STEEL SECTION PROPERTIES 

C JF=DEGREE OF FREEDOM 

C IF0D=1 COMPUTES FLEXIBITY COEFF. 

C IF0D=2 COMPUTES DEFLECTION COEFF. UNDER CONC. LOAD 

C H = G/E, THE RATIO OF THE SHEAR MODULUS TO YOUNG, S MODULUS 

DIMENSION U(36),IU(36),YC6,6),T{6,6),V{6),W(6),FILL{ 8),SP{7,9), 
1 SYSFIL(27),PRCFIL(6), KRAYI 10 ) ,BL (4 ) 

COMMON U,IU,Y,T,V,W,JLD,NLS,H,JT,J,K,JM,N,NS,L,BL,FILL,£GO,S, 
4CHECK,NMAX,INQRM,IS0LV,ISCAN,IIII,IM0D,JJJJ, ICONT, ISUCC, IMERG, 
5T0P,N1,NL,NT,NREQ,TN,LFILE,T0LER,IPRG,IRST,IRLD, IRPR,SYSFIL, 
8NJ,NB,NDAT,ID, JF ,NSQ,NCORD, IMETH,NLDS,NF JS,NSTV,NMEMV, IPSI ,NMR, 
9NJR,IS0DG,NDSQ,NDJ,IPD8P,IUDBP,NBB,NFJS1,JJC,JDC, JMIC, JMPC , JXX 
COMMON J£XTN,MEXTN,LEXTN,JLC,NLDSI,IYOUNG, ISHEAR ,IEXPAN, IDENS, 
1 PROFIL, 

4NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ADS,MCDN,KS,KMKST,KSTD6 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6 I0FDG,L0ADN,MEGA0,JEXT,JINT,KUDBP,KMEGA,KPDBP,JTYP,MTYP1,K8 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
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EQUIVALENCE (U, IU, Y) 
TOLER=0.02 
780 GO TO (10,30), IFOD 
10 SL = 0. 

GO TO (30, 600, 600, 18, 600), L 
18 DO 22 1=1, NS 
22 SL=SL*SP(7,I) 
OI=S-SL 

IF (ABSF(DI)-TGLER*S)30,30,25 
25 CALL PR£R2(3,JM,NS) 
SP(7,NS)=SP(7,NS)+DI 
CALL PRER2(U,NS,SP(7,NS)) 

30 SLX=S 

DO 110 1=1, NS 

GO TO (31,600,600, 32, 600), L 

31 SIEM=S 
GO TO 33 

32 STEM=SP(7,I) 
33 STSL=STOP-STEM 

IF (STSL ) 35,38,38 
35 SLS=STOP 

GO TO 40 
C OEFLECTION CCEFF. FOR ONE SEGMENT 
38 SLS=STEM 

40 S2=SLS**2 
S3=SLS*S2 

DO 41 1=1, JF 
DO 41 M=1,JF 

41 T(I,M)=0. 

GO TO (42,45, 50, 42, 55), ID 
C PLANE FRAMES 

45 IF (SP(2,I)) 46,46,48 

46 IF (SP(3,D) 150,150,146 
146 SP(2,I) = SP(3,I) 

GO TO 48 
150 T(2,2)=S3/(3.«SP(6,D) 
GO TO 49 

48 T(2,2)=S3/(3,*SP(6,I)) +SLS/ (H*SP( 2 , I ) ) 

49 T(3,3)*SLS/SP(6,I) 
T(2,3) = S2/(2.*SP(6,I)) 
T(3,2)=T(2,3) 

C TRUSSES PLANE OR SPACE 

42 T(l,l)=SLS/SP(l,I) 
GO TO 65 

C PLANE GRID 

50 IF (SPOtll) 51,51,53 
51 IF (SP(2,I)) 153,153,152 

152 SP(3,I) = SP(2,I) 
GO TO 53 

153 IF (SP(ltl)l 160,160,155 
155 SP(3,I) = SP(1,I) 

GO TO 53 
160 Tll,l)=S3/(3.*SP(5,in 
GO TO 54 
53 T(1,1)=S3/(3.»SP(5,I)) +SLS/ (H«SP ( 3, I ) ) 
54 IF (SP(4,I)) 162,162,180 
162 IF (SP(6,IH 165,165,164 

164 SP(4,I) = SP(6,I) 
GO TO 180 

165 SP(4,I) = 0*C001*SP(5,I) 
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180 T(2,2)=SLS/(H»SP(4,I)) 
T(3,3)=SLS/SP(5,I) 
T(l,3) = -S2/(2.*SP(5,I)) 
T(3,1)=T(1,3) 
GO TO 65 
C SPACE FRAME 

55 IF(SP(2,I)) 56,56,58 
56 T(2,2)=S3/{3.*SP(6,I)) 
GO TO 59 

58 T(2,2)=S3/(3.»SP(6,I) ) +SLS/ (H*SP { 2, 1 ) ) 

59 IF(SP(3,I) ) 60, 60, 62 

60 T(3,3)=S3/(3.«SP(5,I)) 
GO TO 63 

62 T(3,3)=S3/(3.»SP(5,I)) + SLS/ (H«SP ( 3, I ) ) 

63 T(4,4)=SLS/(H*SP(4,I)) 
T(5,5)= SLS/SP(5,I) 
T(6,6)=SLS/SP(6,I) 
T(2,6) = S2/(2.»SP(6,I)) 
T(3,5) = -S2/(2.»SP(5,I)) 
T(6,2) » T(2,6) 

T(5,3) = T(3,5) 
GO TO 42 

65 DO 66 1=1, JF 
DO 66 M=1,JF 

66 YU,M)=Y(I,M)+T(I,M) 
GO TO (67,68), IFOD 

67 IF (L-4) 400,68,400 
C TRANSFORMATION OF DEFLECTIONS TO RIGHT END 
68 DS=SLX-SLS 

IF(DS) 400,400,70 
70 GO TO (100,75,80,100,85), ID 
75 Y(2,2)=Y(2,2)+T(3,2)*DS 

Y(2,3)*Y(2,3)+T(3,3)*0S 

GO TO 90 
80 Y(l,i)=Y(l,l)-T(3,l)*DS 

Y(1,3)=Y(1,3)-T(3,3)»DS 

GO TO 90 
85 Y(2,2)=Y(2,2)+T(6,2)«DS 

Y(3,3)=Y(3,3)-T(5,3)»DS 

Y(2,6)=Y(2,6)*T(6,6)«DS 

Y(3,5)=Y(3,5)-T(5,5)»DS 
C DEFLECTION AT RIGHT END UNDER TRANSFORMED LOAD 
90 IF(STSL) 400,400,95 

95 GO TO (100,96,97,100,98), ID 

96 Y(2,2)=Y<2,2)-MT(2,3)+T(3,3)«DS)*STSL 
Y(3,2)=Y(3,2)+T(3,3)»STSL 

GO TO 100 

97 Y(l,l)=Y(l,l)-(T(l,3)-T(3,3)*DS)*STSL 
Y(3,1)=Y(3,1)-T(3,3)*STSL 

GO TO 100 

98 Y(2,2)=Y(2,2)+(T(2,6)+T(6,6)*DS)*STSL 
Y(3,3)=Y(3,3)-(T(3,5)-T(5,5)*DS)*STSL 
Y(6,2)=Y(6,2)+T(6,6)»STSL 
Y(5,3)=Y(5,3)-T(5,5)*STSL 

100 STOP=STSL 





SLX=DS 




110 


CONTINUE 




400 


DO 500 I 


= 1,JF 




DO 500 M 


= 1,JF 


500 


Y(I,M) = 


Y(I,M)/EGO 
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600 


RETURN 
END 






• 


EAP 








LBL 


BUGER 






COUNT 


25 




* BUGER THE 


CALLING SEQUENCE FOR XSIMEQF 




* 


BUGGERS 


ARGUMENTS 4, 5, AND 7 






ENTRY 


BUGER 




BUGER 


SXA 


BACK, 1 






SXA 


BACK+1,2 






SXA 


BACK+2,4 






CAL 


ARG3+1 






SUB 


= 204 






STA 


TOP 






CLA 


3,4 






STA 


ARG 






CLS* 


4,4 






ANA 


=0077777000000 






ARS 


18 






SSM 








ADD 


TCP 






STA 


ARG4 






CLS* 


7,4 






ANA 


=0077777000000 






ARS 


18 






SSH 








ADD 


TOP 






STA 


ARG7 






CLS* 


5,4 






ANA 


=0077777000000 






ARS 


18 






SSH 








ADD 


TCP 






STA 


ARG5 






CLA 


lt4 






STA 


ARG1 






CLA 


3,4 






STA 


ARG3 






CLA 


6,4 






STA 


ARG6 






CLA 


2,4 






STA 


ARG2 




ARG1 


CLA 


» 




ARG3 


LDQ 


» 






STQ 


IN+204 INTO (TGP-2) 




ARG4 


LDQ 


* 






STQ 


IN+203 INTO TOP-3 




ARG5 


LDQ 


* 






STQ 


IN+202 




ARG6 


LDQ 


• 






STQ 


IN+201 




ARG7 


LDQ 


* 






STQ 


IN+200 




ARG2 


LDQ 


* 






TSX 


$XSIMEQ,4 




ARG 


STG 


** RETURN RESULT CODE IN 


THIRD ARG 


SACK 


AXT 


*,1 






AXT 


**2 






AXT 


*t4 






TRA 


8,4 
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TOP PZE 
IN COMMON 1 
END 

* LABEL 

* SYMBOL TABLE 

SUBROUTINE F IXM( IC ,MREL , JM ) 

DIMENSION Y(6,6),T(6,6),Q{6,6),U{36),IU(36),SYPA(4G),FILLC20) 

COMMON U, T,Q, CHECK, NM AX, INORM, I SOLVE, I SCAN, III I , IMOO, JJJJ , ICONT, 
1ISUCC,SYPA,NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR,IS0DG,NDSQ,NDJ,SDJ,NPR,NBB,NFJS1,FILL, 
3NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB, 

4LQA0S, INPUT,KS,KMKST,KSTDB,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR,KMK, 
5KV,K33,LA2R ,LA2RT,NV ,NTP , NSCR7,NSCR8,NSCR9,NSCR10,KDI AG, KOFD 
6G,I0FDG,LDNM,MEGA0,JEXT,JINT,KUDBP,KMEGA,KPDBP,JTYP,MTYPl 

EQUIVALENCE (U< I ),IU(1),Y(1)) 
C FIRST MULTIPLY KP12»KP22 (-1 ) 
241 NPR=NPR+1 

CALL DEFINECNSCR7, 36, 0,1,1) 

CALL AL0CAT(NSCR7) 

CALL DEFINEC KMEGA,NPR,NSQ,0 ,0, 1 ) 

CALL ALOCATC KMEGA,NPR) 

JP=MTYP14-JM 

IU(JP)=NPR 
C ALTERATION OF MTYP1 IF A PLUS RELEAS IS DELETED IS NOT DONE IN MRELES 

IX=KMEGA+NPR 

CALL CLEAR(U( IX)) 

IX=IUUX) 

SDJM = -SDJ 
3 IF (IC) 1,1,2 

1 CALL CARRY (ID,JF,SDJM) 
CALL C0PY(T,T,JF,2,IX) 
GO TO 246 

C TOTAL RELEAS AT START OF NON TRUSS MEMBER 

2 JC=JF-IC 

DO 10 L=l,IC 

DO 10 J=i,JC 

IA = NSCR7-HL-1)*6+J 

U(IA)=0.0 
217 DO 216 1=1, JC 

IIOIC + I 

IN=NTP + J+U-i)«6 
216 U(IA) = UUA)+Y(L,IIC)*U(IN) 
10 CONTINUE 
C KP12*KP22(-1) FOR JM IS NOW IN NSCR7 
C NEXT LAM1(T)*NSCR7*LAM2 

DO 20 1=1, JF 

CO 20 N=1,JF 

Y(I,N)=0.0 

DO 15 M=1,JC 

L=IC+M 

CO 15 K=1,IC 

IA=NSCR7+(K-1)*6 + M 
15 YU,N)=Y(I,N) + T(K,I)*U(IA)*T<L,N) 
20 CONTINUE 
C ADD LAM1#LAM1T=IPRIME 

DO 30 1=1, JF 

1=1 

MM=MREL 

CALL UNPCK(MM,I,ID) 
1C00 IF(MM)30,30,29 
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29 Y(I,I)=Y(I,I)+1.0 

30 CONTINUE 

C OMEGA IS NOW IN Y MUST BE MULTIPLIED BY CARRY OVER 

CALL CARRY (ID,JF,SDJM) 

CALL MAMUL(Y,T,T,JF,JF,-1) 
C T«OMEGA IS NOW IN Y 

240 CALL C0PY(Y,Y,JF,2,IX> 
C CAN NOW MODIFY CANTILEVER FORCES 

245 CALL RELEAS(NSCR7) 

246 CALL RELEAS(KMEGA,NPR) 
RETURN 

END 

* LISTS 

* LA8EL 

SUBROUTINE CARRY ( ID, JF,SS ) 
DIMENSION Y(36),T(36) 
COMMON Y»T 
DO LOO 1*2,18 
100 T(I)=0. 
T(l)=l. 
T(8)=l. 
T(15)=1. 
GO TO (10,5,6, 10,7), ID 

5 T(14)=SS 
GO TO 10 

6 T(13)=-SS 
GO TO 10 

7 DO 20 1=19,35 
20 T(I)=0. 

T(22)=i. 
T(29)=l. 
T(36)=l. 
T(32)=SS 
T(27)=-SS 
10 RETURN 
END 

* LIST8 

* LABEL 

* SYMBOL TABLE 

SUBROUTINE COPY{ A, B, JF, IX , ICM ) 

DIMENSION A(6,6),B(6,6),U(20C),IU(200) 

COMMON U,IU 

EQUIVALENCES, IU) 
C THIS SUBROUTINE COPIES B OR U INTO A. OR PUTS ZEROS INTO A. 
C ICM POS MEANS 8 IS TO BE FOUND IN U. ICM IS STARTING LOCATION, 
C IX=-2 FILL A WITH UNIT MATRIX. 
C IX=-1 ADD A TO U 
C IX=0 FILL A WITH ZEROS 
C IX=1 FILL A WITH U OR B 
C IX=2 FILL U WITH A 

XL0CF(N1,N2,N3) = N1+N2-MN3-1)»JF 

IXX=IX*3 

GO TO (1,2,1,15,5) ,IXX 
1 CO 40 1=1, JF 

DO 3 J=1,JF 
3 A(l,J)=0.0 

IF(IX)31,40,40 

31 A(I,I)=i.O 
40 CONTINUE 

GO TO 20 
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15 IFUCMU6, 16,17 
17 ITES=1 

GO TO 7 

16 ITES=0 
GO TO 7 

5 DO 6 1=1, JF 
00 6 J=1,JF 
IJK=XLOCF(ICM,I,J) 

6 UUJK)=A(I,J) 
GO TO 20 

2 IT£S=-1 

7 00 30 1=1, JF 
DO 30 J=i,JF 
IF(ITES)llt9tl2 

11 IJK=XLOCF(ICM, I, J) 
U{IJK)=A(I,J)+U(IJK) 
GO TO 30 

9 CKK=B(I,J) 
GO TO 10 

12 IJK=XLOCFUCM,I,J> 
CKK=U(IJK) 

10 A(I,J)=CKK 
30 CONTINUE 
20 RETURN 

END 
« LIST8 

* LABEL 

* SYMBOL TABLE 

SUBROUTINE MAMUL ( Y, T, A, JS, JT, J J ) 
C DOES MULTIPLICATION T»Y*A 
C JS IS SIZE OF SQUARE ARRAY 
C JJ=0 TRANSPOSE A. TRIPLE PRODUCT 
C JJ=1 TRANSPOSE T. TRIPLE PRODUCT 

C JJ=-1 ONLY DOUBLE PROD.T IS NOT TRANSPOSED. Y IS POST MULT. 
C A IS POST MULTIPLIER 
C T IS PRE MULTIPLIER 

DIMENSION C(6,6),T«6,6),Y(6,6),A(6,6) 
IF{ JJ)4,9,9 
9 DO 1 1=1, JT 
DO 1 J=l,JT 
QU, J)=0.0 
DO 1 N=1,JS 
DO 1 K=1,JS 
IF(JJ)3,3,6 
3 CF=T(I,K) 
CB=A(J,N) 
GO TO 1 
6 CF=T(K,I> 
C8=A(N,J) 
1 CU,J)=Q(I,J)+CF*Y(K,N)*CB 

GO TO 100 
4 DO 40 1=1, JT 
DO 40 N=1,JS 
Q(I,N)=0.0 
DO 40 K=1,JS 
40 Q(I,N)=QU,N)+TCI,K)«YIK,N> 
100 CALL COPY{Y,Q, JT,1,0) 
15 RETURN 
END 

* LIST8 
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20 



LABEL 

SYMBOL TABLE 

SUBROUTINE PERMUT < MREL, JF , ID ) 

THIS SUBROUTINE SETS UP PERMUTATION MATRIX IN T 

DIMENSION Y(6,6),T(6,6),U{36),IU(36) 

COMMON U,T 

EQUI VALENCE (U(1) V IUC1I»Y(1)) 

THIS SUBROUTINE SETS UP PERMUTATION MATRIX IN T 

CALL CCPY<T,T,JF,0,0) 

IC = JF 

CO 101 1=1, JF 

1=1 

MM=MREL 

CALL UNPCMMM, I, ID) 

IF(MM)30,30,2Q 

MM POS. MEANS RELEASE I IS PRESENT. 

TllCtl ) = 1.0 

IFUC-I)4,3,4 

10 = 

IC=IC-1 

go ro ioi 



30 


II = IC-JF 


: + I 


C 21 


CHECKS 1 


IF LAMB 


21 


IF( 11-1)24,25, 


24 


10=0 




25 


T(II,I) = 


= 1.0 


101 


CONTINUE 


28 


MREL=IC 

RETURN 

END 




• 


FAP 






COUNT 


60 




LBL 


UNPCK 




ENTRY 


UNPCK 


UNPCK 


CLA 


1,4 




STA 


MREL 




CLA 


2,4 




STA 


INDEX 




STA 


INOX 




CLA 


3,4 




STA 


JFR 


INDX 


CLA 


• • 




ARS 


18 




SUB 


= 1 




TZE 


JFR 




TPL 


INOEX 


JFR 


CLA 


• • 




ARS 


18 




SUB 


= 3 




TZE 


GRID 




ADO 


= 1 




TZE 


PLNFR 




CLA* 


lt4 




ARS 


18 




STO 


MRCCN 




TRA 


INDEX 


GRID 


CLA 


MSKGl 




ANA» 


lt4 




ARS 


20 




STO 


MRCCN 



NO CONDENSING 



PLANE FRAME 
SPACE FRAME 



MASK1 GRID 



MREL CONDENSED 
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TRA 


INDEX 


PLNFR 


CLA 


MSKFl 




ANA» 


1,4 




ARS 


3 




STO 


TMPFR 




CLA 


MSKF2 




ANA* 


1,4 




ADO 


TMPFR 




ARS 


18 




STO 


MRCCN 


iNoex 


CLA 


*« 




ARS 


18 




SUB 


= 1 




STA 


*+2 




CLA 


= 1 




ALS 


• • 




ANA 


MRCCN 


MREL 


STO 


• « 




TRA 


4,4 


TMPFR 


PZE 




TEMPG 


PIE 




MSKGl 


OCT 


0OC034OCO000 


MSKG2 


OCT 


0034CCOOO0C0 


MSKFl 


OCT 


OOOC4COCOOGO 


MSKF2 


OCT 


O00CO3O000O0 


MRCON 


PZE 





MASK1 PLANE FRAME 



ACTUAL DECODING OF MREL COND. 



* THIS SUBROUTINE CONDENSES THE 

* CODE WORD SPECIFYING THE RELEASE 

* (ACCORDING TO TYPE OF STRUCTURE) 

* AND DECODES THE CONDENSED WORD. 

* IT IS CALLED BY SUBROUTINE 

* MRELES. 

END 
» LIST8 

* LABEL 
CMAIN3/6 

DIMENSION Y(6,6),T<6,6),Q(6,6),U(36),IU<36),SYPAU0>,FiLL(6) 

COMMON U,T,Q, CHECK, NMAX, I NORM, ISOLV.ISCAN, 1 1 1 1 , IMGD, ILINK, ICCNI , 
lISUCC,SYPA,NJ,NB,NDAT,ID,JF f NSQ,NCORD,IMETH,NLDS,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR,iSODG,NDSQ,NDJ,S0J,NPR,NBB,NFJSl,JJC,JDC, 
3JMIC,JMPC,JLD,JEXTN,MEXTN,L£XTN,JLC,NLDSI,IYOUNG,ISHER,iEXPAN, 
4IDENS,FILL, 

5NAME,KXYZ,KJREL,JPLS, JMIN,MTYP,KPS I ,MEMB , 

6LOADS, INPUT, KS,KMKST,KSTD8,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR,KMK, 
7KV,K33,LA2R ,LA2RT,NV ,NTP ,NSCR7,NSCR8,NSCR9,NSCR10,KDI AG,KOFD 
8G,I0FDG,LDNM,MEGA0,JEXT,JINT,KUDBP,KMEGA,KPDBP,JTYP,MTYP1,K8,ML0AD 
9,JLQAD,KATR,LEXT,KYOUNG,KSHER,KEXPAN,KDENS 

EQUIVALENCES! 1), IU(1),Y(D) 

CALL LOADPC 

1SUCC«ISUCC 

GO TO Ci,2),ISUCC 

1 ISOLV=5 

CALL CHAIN(4,A4) 

2 CALL CHAIN(1,A4) 
END 

* LISTS 
» LABEL 

SUBROUTINE FGMCD 
C THIS ROUTINE MODIFIES JOINT LOAD VECTORS IF THERE ARE FREE JOINTS 
C THIS ROUTINE SOLVES FOR JOINT DISPLACEMENTS IF THERE ARE NO FREE JOINTS 
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DIMENSION Yt6 f 6),TC6,6>,QC6,6),U<36>,IUI36),SYPA(40),FILL{6) 
COMMON U,T f Q,CHECK f NMAX,INORM,ISOLVE»ISCAN,IIII, IMOD, JJJJrICGNT, 
iISUCC,SYPA,NJ,NB,NDAT, ID,JF f NSQ,NCORD,IMETH,NLDS,NFJS,NSTV 
2 f NMEMV,IPSI,NMR,NJR,IS0DG,NDSQ,NDJ,IPB, IUP8,NBB,NF JS1 
2,JJC,JDC,JMIC,,JMPC,JLD,JEXTN,MEXTN f LEXTN,JLC,NLDSI,IYQUNG,ISHEAR, 
2IEXPAN,IDENS,FILL, 

3NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB, 

4LOADS, INPUT,KS,KMKST,KSTDB,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR,KMK, 
5KV,K33,LA2R ,LA2RT ,NSCR5,NSCR6,NSCR7,NSCR8,NSCR9,NSCR10,KDIAG,KOFD 
6G,I0FDG,LDNM,M£GA0,JINT, JEXT, IFDT.KMEGA, KPOBP, JTYP,MTYP1 , ICFC 
EQUIVALENCE(U{i),IU(l),Y(l)) 
CALL ALOCAT(KPDBP) 
CALL ALOCAT(KPPRI) 
CALL DEFINE(NSCR5,NDJ, 0,1,0) 
CALL CL£AR(NSCR5) 
9 DO 200 L=1,NL0SI 
JX=(L-i)*NDJ 
I8=KP0BP+JX 
DO 8 1=1, NDJ 
IA=IB+I 

IF(IU(IA))160,8,160 
8 CONTINUE 
C THIS LOADING CONDITION HAS NO FIXED END FORVES ON SUPPORTS 
GO TO 200 
160 CALL AL0CATINSCR5) 
C 

C L=IND£X FOR LOAD CONDITION 
C OMEGA0»KPOBP FOR L TH LOAD CONO INTO NSCR5 
C 

00 171 1=1, NDJ 
II=(I-i)/JF+l 
C WILL ALOCAT EACH MEGAO JF TIMES SO WHAT 

N3=MEGA0+II 
C TEST IF MEGAOUI) IS NOT ALL ZERO (NOT DEFINED) 
IF(IU(N3))10, 171,10 
10 CALL ALOCAT(MEGACII) 
N3=MEGA0+II 
IB=NSCR5*I 
U(IB)=0.0 

NIN=IU(N3) + {I-l-(II-n*JF)»NCJ 
IAP=KPDBP+JX 
00 170 K=1,NDJ 
IC=NIN+K 
IA=IAP+K 

170 U{IB)=UUB)-U(IC)*U(IA) 
CALL RELEAS(MEGAO,II) 

171 CONTINUE 
C 

C OMEGA*KPDBP INTO KPDBP IN ALL CASES (=0 ISPLACEMENTS IF NFJS=0) 
C 

174 DO 172 1=1, NDJ 
IA=IAP+I 
I8=NSCR5+I 

172 UUA)=-U(IB) 

175 IF(NFJS)173,200,173 

C FREE JOINT FORCE MODIFICATION DUE TO SUPPORT RELEASE { ATKA//*NSCR5 ) 
C SUBSCRIPTS OF PROD ARE (I,J)«(J) 
173 JX=(L-1)*NSTV 

DO 110 J=NFJSi,NJ 

IA=IOFDG+J 
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IA=IUUA)4-i 

CALL UPADP(IU(IA>,D,LCU,LDE) 
C LCU IS NUMBER OF ENTRIES FOR KOFOG IN ROW J ( 1 LESS THAN 'CUURENT LENGTH OF) 
C IIS COLUMN OROER 

IF(LCU>1, 110,1 
1 CAiLL ALOCAT(IOFDG.J) 

DO 100 IM=1,LCU 

IA=IOFDG+J 

IB*IU(IA)*1+IM 

CALL UPADP(IU<IB).D,I,IA) 

IF«I-NFJS)6,6,100 
6 CALL ALOCAT(KOFOG,IA) 

IASV=KGFDG+IA 

N2*IUUASV> 
5 N3«NSCR5+(J-NFJS1)*JF 

NRE;S=JX+U-n«JF+KPPRI 

CALL MAPR0D<Q f N2,N3,NRES,i,JF,4> 
100 CALL RELEAS(KOFDG,IA) 
110 CALL RELEASCIOFDG.J) 

200 CONTINUE 

201 1=1 

CALL RELEAS(NSCR5,Q,0> 
555 CALL RELEAS(KPDBP) 
RETURN 
END 

• LIST8 

• LABEL 

• SYMBOL TABLE 
SUBROUTINE LGAOPC 

C STRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C REVISION TO CHANGE TO VERSION 3 AUG 28 63 S M 

C LOAD PROCESSING BY JOINT AND MEMBER 

C JLD=CURRENT LOADING CONTION 

C INDEX FOR LOADING TYPE 

C NDEX(l)=JOINT LOAO 

C NDEX(2)=MEMBER LOAD K=l CONCENTRATED K=2 UNIFORM K*3 LINEAR 

C NDEX(3)=MEMBER ENO LOAD J=0 FOR RIGHT END J=l FOR LEFT END 

C NDEX(4)=MEM8ER DISTORTION 

C NDEX(5)=J0INT DISPLACEMENT 

C UPON CHANGE OF STRUCTURE TYPE ALL UNUSED FIELDS IN LOAD BLOCKS 

C ARE ASSUMED 

C H IS=G/E 

DIMENSION Y(6 9 6)»T(6t6)tPL(6)tPR(6)fFILL(lll t 
1SYSFIL<32),PR0FIL(6),U(36), IU< 36 > ,KSRTCH (9 ) 

COMMON U,IU,Y,T,PL,PR,JLD,NBL,H, JT, J,K, JM,N, FILL , IKI ,K9, IM,EGO,S 
1, CHECK, NMAX, INORM, I SGLV, ISCAN, 1 1 1 1 , IMOD, JJ JJ , ICONT , ISUCC, IMERG, 
2T0P,N1,NL,NT,NREQ,TN,LFILE,$YSFIL,NJ,NB,NDAT,ID, JF ,NSQ,NCORD , 
3IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR,ISODG,NDSQ,NDJ,IXX, 
4IUDBP,NBB,NFJSl,JJC,JDC,JMIC,JMPC,JLT,JEXTN,MEXTN,L£XTN,JLC,NL0SI 
5, I YOUNG, I SHEAR, I EXP AN, I DENS, PROF I L ,NAME, KXYZ ,KJREL , 
6JPLS,JMIN,MTYP,KPSl,MEMB,L0ACS,M0DN,KS,KMKS1 ,KSTDB,KATKA,KPPLS, 
7KPMNS,KUV,KPPRI,KR,KSAVE,KWORK,KSRTCH,KDIAG,KOFDG,IOFDG, 
8LDNM,MEGA0,JEXT,JINT,KUDBP,KHEGA,KPD8P,JTYP,MTYPi,KB,MLOAD,JL0AD 
9,KATR f LINT,KY0UNG,KSH£AR,KEXPAN,KDENS 
EQUIVALENCE(U,IU,Y) 
IFUYGUNG-1>5,3,5 

3 CALL ALOCAT(KYCUNG) 
5 IF(ISHEAR-1)4, 1,4 

1 CALL ALQCAT(KSHEAR) 

4 CALL ALOCATCKPPRI) 
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CALL ALOCAT(KPPLStO) 
CALL ALOCAT(KPMNS,0> 
CALL ALOCAT(MEMB,0) 
CALL ALOCATCKUV,0) 
IF(IPSI)31i,7,311 
311 CALL ALOCAT(KPSI) 

7 CALL ALOCAT(KMKST,0) 
CALL ALOCAT(KS) 
CALL ALOCAT(MTYP) 
CALL ALOCAT(MLOAD,0> 
IF(NMR>550,550,551 

551 CALL ALOCAT(KMEGA,0> 

CALL ALOCATiMTYPl) 
C MAX 10 SEGMENTS PER MEMBER SPC7,10) 
550 CALL DEFINECKWORK, 36, 0,0,1) 

CALL ALOCAT(KWORK) 

CALL ALOCAT(LINT) 

IF(NJR)8,8,6 
6 CALL OEFINE(KPDBP,NDJ*NLDS ,0,0,1) 

CALL ALOCAT(KPDBP) 
C CLEAR ARRAYS IF MODIFICATIONS 

8 IF(M0DN)ll,2,ll 
11 00 12 IM=i,NLDS 

JM=KPPLS+IM 

JT=KPMNS+IM 

NLS=KUV*IM 

CALL CLEAR(UUM) ) 

CALL CLEAR(UCJT) ) 
12 CALL CLEAR(UiNLS)) 

CALL CLEAR(KPPRI) 

CALL CLEAR(KPDBP) 
2 DO 101 IM=1,MEXTN 

NLS=MTYP+IM 

JM=IM 
C CHECK IF MEMBER DELETED 

IF(U(NLS) )102,101,102 

102 IXX=MLOAD+IM 

CALL UPADPCIU(IXX) ,JT,JT,IXX) 

IFUXX-2)105, 101,105 
B105 IF(U{NLS)*0777C0e0000GU04,lC3,104 
C CHECK IF MEMBER IS RELEASED AT START END, 

104 IXX=MTYP1+JM 

IXX=IUUXX) 

CALL ALOCAT<KMEGA,IXX) 
C ALOCAT T«OMEGA FOR RELEASED MEMBER 

103 CALL ALOCAT(MLOAD,IM) 
C GET LENGTH 

NLS=KS+(JM-1)»(NC0RD+1)+1 

S=U(NLS) 

NBL=MLOAD+IM 

NBL=IU<NBL)+2 

NBL=IU(NBL) 

IF(NBL)9,106,9 

9 JT=0 

CALL AL0CAT(KMKST,1M) 
ISAV=IM 
CALL LOADPS 
IM=ISAV 

CALL KELEAS(KMKST,IM) 
1C6 CALL RELEAStMLGAD, IM) 
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101 CONTINUE 

CALL RELEAS(MTYP) 

CALL RELEAS(MLCAO,0) 

CALL RELEAS(MEMB,Q) 

CALL RELEAS(KYOUNG) 

CALL RELEAS(KSHEAR) 

CALL ALOCAT(JTYP) 

CALL ALOCAT(JINT) 

CALL ALOCAT(JLOAD,0) 
C JM=EXT JOINT NO. 

00 400 JM=l,JEXTN 
C GET INTERNAL JOINT NUMBER IM 

IM*JINT*JM 

IM=IU(IM) 
C CHECK IF JOINT IS DELETED 

JLD=JTYP+JM 

IF(IUULD) )211, 400,211 
211 IXX=JLOAD+JM 

CALL UPADPUUUXX), JT,JT,IXX) 

IF(IXX-2)210,400,210 
210 CALL ALOCAT(JLGAD,JM) 

NBL=JLOAD+JM 

NBL*IU(NBL)+2 

N8L=IU(NBL) 

IF(NBL>390,399,390 
390 JT = 1 

ISAV=JM 

CALL LOADPS 

JMMSAV 

399 CALL RELEASULCAD.JM) 

400 CONTINUE 

CALL RELEAS(KWCRK,0,0) 

CALL RELEASCKPPRI) 

CALL RELEAS(KPPLS,0) 

CALL RELEAS(KPMNS,0) 

CALL RELEAS(KUV,G> 

CALL RELEASUPSI) 

CALL REL£AS(KMKST f 0) 

CALL RELEAS(KPDBP) 

CALL RELEAS(KS) 

CALL REL£AS(JLOAD,0) 

CALL RELEAS(JTYP) 

CALL RELEAS(LINT) 

CALL RELEAS(JINT) 
589 IF(NMR>421,420,421 
421 CALL RELEAS(KMEGA,0) 

CALL RELEAS(MTYPl) 
420 RETURN 

END 
» LIST8 
* LABEL 
» SYMBOL TABLE 

SUBROUTINE LCADPS 
C THIS SUBROUTINE BRANCHES ON NDEX AND COMPACTS LOAD DATA FOR ONE LOAD 
C INTO PL (PL AND PR IF NDEX =3) ALSO TRANSMITS NDEX TO LSTOR 

DIMENSION Y(6,6),T(6,6),PL(6),PR{6),FILL(14) , 
1 SYSFIL132), PROFIL(IO), U(36), IU(36) ,KSRTCH(9) 

COMMON U,IU,Y,T,PL,PR,JLD,NLS,H , JT, J, K, JM, N, FILL, NDEX, S, 

1 CHECK,NMAX,INORM,ISOLV,ISCAN,IIII,IMOD,JJJJ,ICONT,ISUCC,IMERG, 

2 TOPjNUNLrNTtNREQ.fN^FILE^YSFIL^J.NB.NOAT.ID^F^NSCUNCORD, 
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3 IMETH, NLOS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR,IS0DG,NDSQ,NDJ,IPDBP, 

4 IUDBP,NBB,NFJS1,JJC,JDC, JMIC, JMPC, JLT, J£XTN,MEXTN ,LEXTN, JLCNLDSI 
5,PR0FIL,NAME,KXYZ,KJREL, 

6 JPLS,JMIN,MTYP,KPS I, MEMB, LOADS, MOON, KS,KMKST,KSTDB,KATKA,KPPLS, 

7 KPMNS,KUV,KPPRI,KR,KSAV£,KWORK,KSRTCH,KDIAG,KOFCG»IOFDG, 
8LDNM,MEGA0,JEXT t JINT,KUDBP,KMEGA,KPDBP,JTYP f MTYPl,KB,ML0AD,JL0AD 
9,KATR,LINT,KY0UNG,KSHEAR,KEXPAN,KDENS 

EQUIVALENCE (U, IU, Y) 
C NBL FROM LOAOPC SAVED, NAME HAS CHANGED 
C NEW NLS USED IN SUBSEQUENT ROUTINES. 

NBL=NLS 
144 IPL=3 
C LOOP ON LOAD BLOCKS 

147 DO 150 1=1, NBL 
IF(JTI1»1»2 

1 IX=MLOAD+JM 
GO TO 3 

2 IX=JLOAD+JM 

3 NLS=IU(IX)+1PL+1 

C CHECK IF LOAD CGND DELETED 
IF<U(NLS-1>)4, 148,4 

148 IPL=IPL+IU(NLS) 
GO TO 3 

4 CALL UPADP(U<NLS-1),NDEX,JC,ILD> 
C UNPACK LOAD TYPE K 

CALL UPACW(U(NLS),A,N,J,K,B) 
C JC =LOAD COND EXT, 
12 JLD=LINT+JC 

JLD=IU(JLD) 
C JLD = INERNAL LOADING NUMBER 
C NDEX=1, JOINT LOAD, DONT ALOCAT ALL THIS JUNK 

IF(NDEX-2)7,400,400 
4G0 CALL ALOCAT(KPPLS,JLO) 

CALL ALOCAT(KPMNS,JLD) 

CALL ALOCATCKUV ,JLD) 

IFUT)6,6,7 

6 IX=MLGAD+JM 
GO TO 8 

7 IX=JLOAD+JM 

8 NLS=IU(IX)+IPL+1 

C FOR MEMBER LOADS NDEX =2 LEAVE LOAD DATA IN MLOADUT DOES NOT DEPEND 
C ON STRUCTURE TYPE 

IF(NDEX-2)206,205,206 
205 CALL ALOCAT(MEMB,JM) 

NLS=MLQAD+JM 

NLS=IU(NLS)+IPL+1 

JC=MEMB*JM 

JC=IU(JC) 

GO TO 30 
206 NDEX3=NDEX-3 

GO TO (210,220,230,210,210), ID 
C TRUSSES AND SPACE FRAMES 

210 DO 211 1=1, JF 
IX=NLS+I 

211 PL(I)=U(IX) 

215 IF(NDEX3)213,212,213 

212 DO 214 1=1, JF 
IX=NLS+I*6 

214 PR(I)=-U(IX) 
GO TO 61 
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C PLANE FRAME 
220 PL(1)=U<NLS+1) 

PL<2>=UCNLS+2> 

PL(3)=U(NLS+6) 

IF(NDEX3)213,222,2I3 
222 PR(L)*-UlNLS+7) 

PR(2)=-U(NLS+8> 

PR(3*=-U(NLS+12) 

GO TO 61 
C PLANE GRID 

230 00 231 1=1,3 
IX=NLS*H-2 

231 PL«I)=U(IX) 
IF(NDEX3)213,232,213 

232 DO 233 1=1,3 
IX*NLS+I+8 

233 PR(I)=-U(IX) 
GO TO 61 

213 GO TO (10, 30, 61, 40, 50), NDEX 
10 CALL JTLOAD 

GO TO 149 
30 CALL MEHBL0(U(JC + n> 

CALL RELEAS(MEM8,JM) 

NDEX=2 
C ND£X(77307) RESTORED FOR LSTOR BECAUSE MEM8LD WIPES IT WITH EMD. 

GO TO 60 
40 CALL MDISTN 

GO TO 60 
50 CALL JDISPL 
C RESTORE NLS FOR LOADPS 

NLS=JL0AD+JM 

NLS=IU(NLS)*IPL+1 

GO TO 149 
61 DO 62 1= 1,JF 

SAVE=-PL(n 

PL(I)=PR(l) 
62 PR(I)=SAVE 

CALL CASE2<72,78) 

GO TO 149 
60 CALL LSTOR 

149 IPL=IPL+N 

CALL RELEAS(KUV,JLD) 
CALL R£L£AS(KPMNS,JLD) 

150 CALL RELEAS(KPPLS,JLD) 
300 RETURN 

END 

• LIST8 

* LA8EL 
SUBROUTINE MDISTN 

C SfRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 
C VERSION III. ..28 AUGUST 1963 

C KENNETH F. REiNSCHMIDT, ROOM 1-255, EXT. 2117 
C GETS COMPACTED MEMBER DISTORTIONS IN PL 
C STORES IN KUV 

C COMPUTES FIXED END FORCES IN PL AND PR FOR LSTOR AND CASE2 
DIMENSION Y(6,6),T(6,6), PL(6), PR (6 ) ,FILL ( 8 ) , U( 36 ) , IU136 ) , 

1 SYSFIL(27),PRGFIL{6), KRAYC10) 
COMMON U,IU,Y,T,PL,PR,JLD,NLS,H,JT,J,K,JM,N t NS,L,JX,JU,KUS»KUI, 

1 FILL, EGO, S, 

4CH£CK,NMAX,IN0RM,IS0LV,ISCAN,IIII,IM0D,JJJJ, ICONT, ISUCC, IMERG, 
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5T0P,N1,NL,NT,NREQ,TN,LFILE,T0LER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
8NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR, 
9NJR,IS0DG,N0SQ,NDJ,IP0BP,IUDBP,N6a,NFJSl,JJC,JDC,JMIC,JMPC,JXX 
COMMON JEXTN,MEXTN,LEXTN,JLC,NLDSI,IYOUNG,ISHEAR,IEXPAN,IDENS, 
1 PROFILt 

4NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEM8,L0ADS,M0DN,KS,KMKST,KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6 IOFDG,LOAON,MEGAO,JEXT,JINI ,KUD8P,KMEGA,KPDBP,JTYP,MTYP1,K6 
7,MLQAD,JLQAD,KATR,LEXT,KYOUNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE (U, IU, Y) 
C STORE MEMBER DISTORTION IN KUV 
KUS = KUV+JLD 
KUS = IU(KUS)+JF«( JM-1) 
DO 4 1=1, JF 
KUI=KUS+I 
4 U(KUI) = U(KUI)*PL(I) 
C MULTIPLY MEMBER DISTORTION BY STIFFNESS (K*) 
JU=KMKST*JM 
JU=IU(JU) 
CO 8 1=1, JF 
PR(I) = 0,0 
DO 8 M=1,JF 
JX = JU+(M-1)»JF+I 
PR(I) * PR(I)+U(JX)»PL(M) 
8 CONTINUE 
C PR NO* CONTAINS MINUS (RIGHT) END FORCE 

C TRANSLATE MINUS (RIGHT) END FORCE TO PLUS (LEFT) END, CHANGING 
C SIGN FOR COMPATIBILITY WITH CASE2 
DO 20 1=1, JF 
20 PL(I)=-PR(I) 
C MEMBER LENGTH IS IN S.. .STORED BY LOADPC 

GO TO (300,270,280,300,290), ID 
C STRUCTURE IS A PLANE FRAME 
270 PL(3) = PL(3)+ S«PL(2) 
GO TO 300 
C STRUCTURE IS A PLANE GRID 
280 PL(3) = PL(3)- S*PL(l) 
GO TO 300 
C STRUCTURE IS A SPACE FRAME 
290 PL(5) = PL(5)~ S*PL(3) 
PL(6) = PL(6)+ S*PL(2) 
300 RETURN 
END 

• LIST8 
» LABEL 

* SYMBOL TABLE 
SUBROUTINE MEMBLD(SP) 

C CALLED BY LOADPS IF NDEX=2 

C STRESS PROGRAM,.. STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C VERSION III REVISION AUG 28 S M 

DIMENSION Y(6,6), T(6,6), PL(5), PR(7), BL(4) ,KSRTCH(9), 
1 SYSFIL(32), PR0FIL(6), U(36), IU (36) ,SP ( 7, 10 ) 

COMMON U,IU,Y,T,PL,PR,JLD,NLS,H,JT,J,K,JM,N,NS,L,BL,AA,I,BB,SB 

COMMON A,B,C,D,EMD,S, 

1 CHECK,NMAX,INORM,ISOLV,ISCAN,IIII,lMGD,JJJJ,ICONT,ISUCC,IMERG, 

2 T0P,N1,NL,NT,NREQ,TN,LFIL£,SYSFIL,NJ,NB,NDAT,ID,JF,NSQ,NC0RD, 

3 IMETH, NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR,ISODG,NDSQ,NDJ,IPDBP, 

4 IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JLT,JEXTN,MEXTN,LEXTN,JLC,NLDSI 
5,IY0UNG,ISH£AR,IEXPAN,IDENS,PR0FIL,NAME,KXYZ,KJREL, 

6 JPLS,JMIN,MTYP,KPSI,MEMB,LOADS,MODN,KS,KMKST,KSTDB,KATKA,KPPLS, 
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7 KPMNS,KUV,KPPRI,KR,KSAVE,KWORK,KSRTCH,KDIAG,KOFDG,IOFDG, 
8LDNM,MEGA0,JEXT,JINT,KUDBP,KMEGA,KPDBP,JTYP,MTYP1, IOFCMLOAD, JLOAD 
9,KATR,LINT,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE (U, IU, Y) 
C THIS SUBROUTINE COMPUTES THE DEFLECTION UNDER APPLIED LOAD 
C AND TRANSFERS TO THE END OF THE MEMBER AND SUMS DEFLECTIONS AND 
C LOADS 

C IFOD=2 COMPUTES DEFLECTION COEFF. UNDER CONC. LOAD 
C ARRANGEMENT OF KWORK 

C KWORK+l-6 STORES CANTILEVER FORCES ON LEFT ENp 
C KWORK+31-36 6ST0RES CANTILEVER DEFLECTIONS ON RIGHT END 
C UNPACK MTYP, RELEASE AND NS 
IA=MTYP+JM 

CALL UPACW(UdA) , IX ,R£L, L,NS , IX ) 
NS=NS/7 

DO 3001 1=1,36 
K8I=KWCRK-H 
3001 UtKBI)=0. 

GO TO (3101,3051,3051,3121,3101) ,L 
C STIFFNESS OR FLEX GIVEN 

3051 CALL PRER2C12, JM,L) 
GO TO 8000 
C PRISMATIC MEMBER OR STEEL 

3101 NS=1 
C VARIABLE EI 
C PROCESS ONE LOAD 

C LOAD DATA STILL IN MLOAD(JM) MOVE IT TO BL(4) 
3121 DO 3151 1=1, A 

JS=NLS+I 
3151 8L(I)=U(JS) 
KB=KWORK 
KF=KWGRK+30 
C GET H, THE RATIO OF G TO E 
IF(IY0UNG-1)5,4,6 

5 EMD=i.Q 
GO TO 7 

A IK=KYGUNG+JM 
EMD=U(IK) 
GO TO 7 

6 EMD=U(191) 

7 IF(ISHEAR-1)8,9, 10 

8 H=0.4 
GO TO 2 

9 IK=KSHEAR+JM 
H=U(IK)/EMD 
GO TO 2 

10 H=U(192)/EMD 

C SECTION PROPERTIES ARE IN MEMBUM) =U(MEMB+JM )=SP 
2 DO 1 1=1,6 
DO 1 M=i,6 
1 Y(I,M)=0. 
C TRUNCATES LOAD DIRECTION J 
GO TO (26,16,20,26,26), ID 
16 IF(J-6) 26,18,26 
18 J=3 

GO TO 26 
20 J=J-2 
26 KBJ=KB+J 

GO TO (28, 55, 90), K 
C K=l CONC LOAD, K=2 UNIFORM ,K=3 LINEAR 
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28 ST0P=BL(3) 

A=BL(1) 

B=BL(3) 
CALL STICLD 
30 CALL MEMFOD(STCP,SP,2) 

DO 35 1=1, JF 

KFI=KF+I 
35 U(KFI) = U(KFI)+YU, J)*A 

GO TO 5000 
55 A=BL(1) 

B=BL(1) 

C=BL(3) 

D=BL(4) 

GO TO 93 
90 A=BL(1) 

B=BL(2) 

C=BL(3) 

D=8L(4) 
93 AA=A 

CC=ABSF(C) 
96 IF(D> 97,97,98 

97 D=S 

98 CALL STICLD 

C COMPUTATION OF DEFLECTIONS AT RIGHT END OF A SEGMENT UNDER A 
C UNIFORMLY OR LINEARLY DISTRIBUTED LOAD 

100 SL=0. 
S8S=0. 
SAV2=U(KBJ) 

DO 2000 1=1, NS 
1=1 
C MOVE SECTION PROPERTIES OF CURRENT SEGMENT FROM SP TO PR 
DO 101 I K= 1,7 

101 PR(IK)=SP(IK,I) 
IF(NS-i)105,106,105 

106 PR(7)=S 
105 SL=SL+PR(7) 

CALL LINEAR(SL,CC) 
C COMPUTES DEFLECTION BY TRANSFORMED CONCENTRATED LOADS 
205 IF (SB) 1000,1000,214 
214 00C=D-CC 

TEMP=0.5*AA»CDC 

TEMQ=0.5*B*D0C 

U(KBJ)=T£MP+TEMQ 

SBS=SBS+SB 

S8B=S-SBS 

SB2=SB**2 

SB3=SB2»SB 

Cl = l. 

KG=2 

KFM=KF+2 

KBM=KB+2 

TAA=SB/PR(1) 

KBI=KB+3 

K8H=KBI 

KFH=KF+3 

SAV=U(KBI) 

SAV1=U(K8H) 

GOTO (310,300,400,310,300), ID 
300 TBB=SB3/(3.«PR(6)) 

TCC=SB/PR(6) 
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T8C*SB2/(2.»PR(6)) 

IF(ID-3)510,510,500 
C PLANE FRAME 
C TRUSSES 

510 GO TO (310, 316, 330), J 
310 U(KF*l)=U(KF*mU(KB+l)*TAA 

GO TO 1000 
316 U{KBH) = (T£MP»(DCC/3.+CC-S8SmEMQ*(2.»D0C/3.+CC-SBS> )«Ci 
318 IF(PR(KG))321,325,321 
321 TBB=TB8+SB/(H*PR(KG) ) 
325 U(KFM)-U(KFM)+TBB*U(KBM)+TBC*U{KBH) + tTCC*U(KBH)-»-TBC»U(KBM))»SBB*Ci 

U(KFH)=U(KFH) + TCC*UUBH) + T8C»U(KBM) 

GO TO 998 
330 U(KFM)=U(KFM)+TBC*U(KBH)+TCC*U(KBH)*SBB«C1 

U(KFHMU(KFH)+TCC»U(KBH) 

GO TO 1000 
C PLANE GRID 
400 TBB=S83/(3.«PR(5)) 

TAA=S8/(H«PR(4)) 

TCC=SB/PR(5) 

TBC=-SB2/(2.*PR(5) ) 

Cl=-l. 

KBMKB + i 

KFM=KF+1 

KG =3 

GO TO (316, 440,330), J 
440 U(KF+2)=U(KF+2)+TBB«U(KB+2) 

GO TO 1000 
C SPACE FRA*E 
500 TFF=SB3/(3.*PR(5)) 

TDD=S8/(H*PR(4)) 

T£E=SB/PR(5) 

TCE=-SB2/(2.»PR(5) ) 

KBI=K8+5 

K8H=KB+6 

KFH-KF+6 

SAV=U(KBI) 

SAV1*U(KBH) 

GO TO (310, 316, 532, 540, 550, 330), J 
532 U(K8+5)=-TEt4P*(D0C/3.+CC-SBS)-TEMQ*(2.«DDC/3.+CC-SBS) 

534 IF (PR(3)) 535,538,535 

535 TCC=TCOSB/(H*SP(3,I)) 

538 U{KF+3)*U(KF+3)+TFF«U(KB+3)+TCE*U(KB+5)-(TEE*U{KB+5)+TC£*U(KB+3) )» 
1SBB 

U(KF+5)=U(KF + 5)4-TEE»U(KB + 5) + TCE»U(KB + 3) 

GO TO 998 
540 U(KF+4)=U(KF+4)+T0D»U(KB+4) 

GO TO 1000 
550 U(KF+3)=U(KF+3)*TC£»U(KB+5)~TEE*U(KB+5)*SBB 

U(KF+5)=U(KF+5)+TEE»U(K8+5) 

GO TO 1000 
998 U(KBH)=SAV1 

U(KBI)=SAV 
1000 IF(SL-CC) 2000,2000,1300 
1300 IF(D-SL) 4000,4000,1400 
1400 SB=SL-CC 

CC^SL 

AA = BB 

GO TO 205 
2000 CONTINUE 
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4000 U(KBJ)-SAV2 
Kl ■« KF-H 
K2 * KF+JF 

00 420 I * Kl f K2 
420 UU> = UCU/EMD 

5000 CALL EFVDTL 

8000 RETURN 
END 
* LABEL 

SUBROUTINE CASE2U1,J2) 
C STRESS PROGRAM*.. STRUCTURAL ENGINEERING SYSTEMS SOLVER 
C VERSION III. ..28 AUGUST 1963 
C KEN REINSCHMIDT, ROOM 1-255, EXT. 2117 
C JM * MEMBER NUMBER 

C J2 = LOCATION OF MINUS END LOAD VECTOR = PR 
C Jl = LOCATION OF PLUS END LCAO VECTOR = PL 
C DIMENSION STATEMENT FOR ARRAYS IN COMMON 

01 MENS ION U(36),IU(36),Y(6,6>,T16,6),V{6,2), JUNKC 5 ) ,MJNK( 4 ) , 
1 SYSFIL(27),PRGFIL<5>, KRAYC10) 

COMMON U,IU,Y,T,V,JLD,JUNK, JM,MMM, JA, JB,MJNK,NM, KST0P,K1 ,K2,K3,K4, 
1K5,I6,EG0,S, 

4CHECK,NMAX, INGRM ,ISOLV, ISCAN, 1 1 1 1 , IMOO, J JJJ, ICONT , ISUCC, IMERG , 
5T0P,N1,NL,NT,NREQ,TN,LFILE,TGLER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
8NJ,NB,NDAT,ID,JF,NSQ,NC0RD, IMETH, NLDS ,NF JS,NSTV, NMEMV, IPSI ,NMR , 
9NJR,IS0DG,NDSQ,N0J,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JXX 
COMMON JEXTN,MEXTN,LEXTN,JLC,NLDSI,IYOUNG, I SHEAR , I EXP AN, I DENS , 
1ISUPLD,PR0FIL , 

4NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0A0S,MGDN,KS,KMKST,KSTDB 
5 f KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6 IOFDG,LOADN,MEGAO, JEXT, JINT ,KUDBP ,KMEGA,KPD8P, J TYP, MTYP 1 ,K8 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE <U,IU,Y) 
NM « JMIN+JM 
NM = IU(NM)4JINT 
CALL TRAMAT(JM,2) 
KSTOP * 2 
C ADD MINUS END LOAD VECTOR TO PMINUS AND TO PPRIME 
10 Kl - KPMNS+JLD 

Kl * IU(K1) + (JM-U«JF 
K2 - IU(NM) 
SIGN = 1.0 
J3 - J2 

K6 « KPPRI*(JLD-1)«NSTV 
K7 = KPDBP+(JLD-1)*NDJ 
45 K5 * K6 +(K2-1)«JF 
50 DO 200 I = 1,JF 
K3 « K1*I 
J4«J3+I ' 

U(K3)«U(K3) ♦ SIGN»U(J4> 
C IF THE NODE IS IN THE DATUM, ADD TO P PRIME ONLY IF THERE ARE 
C JOINT RELEASES 

IF (K2-NFJS) 150,150,130 
130 IF (NJR) 140,200,140 
140 K4 = K7+(K2-NFJS1)*JF+I 

GO TO 160 
150 K4 = K5+I 
160 TEMP » 0.0 

00 100 J = 1,JF 
C INVERT THE GIVEN ROTATION MATRIX TO TRANSFORM FROM MEMBER 
C LOCAL TO JOINT GLOBAL COORDINATES 
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J4 * J3+J 

TEMP * T(J,I)*U(J4) + TEMP 
100 CONTINUE 

UCK4) » U(K4) ♦ TEMP 
200 CONTINUE 

GO TO (300,210), KSTOP 
210 KSTOP = 1 
C SUBTRACT PLUS END LOAD VECTOR FROM P+ AND ADD TO PPRIME 
30 Kl = KPPLS+JLD 

Kl » IUU1) + (JM-1)«JF 

J3 * Jl 

NM = JPLS+JM 

NM * IU(NM)+JINT 

K2 = IU(NM) 

SIGN = -1.0 

GO TO 45 
300 RETURN 

END 

* LIST8 

* SYMBOL TABLE 

* LABEL 
SUBROUTINE JDISPL 

C STRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 
C VERSION II I. ..28 AUGUST 1963 

C KENNETH F. REINSCHMIDT, ROOM 1-255, EXT. 2117 
C OBTAINS COMPACTED SUPPORT JOINT DISPLACEMENTS IN PL 
C COMPUTES RESULTING MEMBER DISTORTIONS AND STORES IN KUV 
C COMPUTES RESULTING MEMBER FORCES AND SAVES IN PL AND PR FOR LSTOR 
DIMENSION Y(6,6),T(6,6), PL(6), PR { 6 ) .FILLC9 > , U( 36 ) , IU(36) , 
i SYSFIL(27),PR0FIL(6), KRAY(IO) ,TEMP(6) 

COMMON U,IU,Y,T,PL,PR,JLD,NLS,H,JT,J,K,NM,N,NS,L,FILL» IKI, 
1K9,JM,EG0,S, 

4CHECK,NMAX,IN0RM,IS0LV,ISCANtIIII,IM0D,JJJJ,IC0NT,ISUCC,IMERG, 
5T0P,N1,NL,NT,NREQ,TN,LFILE,T0LER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
8NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR, 
9NJR,IS0DG,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JXX 
COMMON JEXTN,MEXTN f LEXTN,JLC,NLDSI,IYOUNG,ISHEAR,IEXPAN f IDENS, 
I PROFIL, 

4NAM£,KXYZ,KJREL, JPLS, JMIN,MTYP,KPS I , MEMB ,LOADS,MGDN,KS,KMKSTt KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,K0IAG,K0FDG, 
6 IOFDG,LOADN,MEGAO f JEXT, J INT ,KUDBP ,KMEGA ,KPDBP , JTYP, MTYP1 ,KB 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG»KSHEAR,KEXPAN,KDENS 
EQUIVALENCE (U, IU, Y> 
C IM (77310) IS INTERNAL JOINT NUMBER FROM LOADPS - IT IS JM IN JDISPL 
C JDISPL 

C GET A TRANSPOSE MATRIX FOR TJNE JM TH NODE 
CALL ALOCAT(KATR,0) 
CALL ALOCAT(KATR,JM) 
Kl = KATR+JM 
C FIND NUMBER OF BRANCHES INCIDENT ON THIS NODE 
K1=IU(K1)+1 
1 NBRI*IU(K1) 

C YOU HAVE TO SAVE THE RAW DATA FOR THE LATER JOINTS 

DO 3 1=1, JF 
3 TEMP(I)=PL(I) 
C LOOP FOR ALL INCIDENT BRANCHES 

CO 400 I = 1,NBRI 
C GET I TH BRANCH NUMBER 

C NM (77327) IS TEMP MEMBER NUMBER FOR TRAMAT AND LSTOR 
K1=KATR+JM 
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Kl=IU(Kl)+2 
NM - Kl+I 
NM = IU(NM) 
C NM IS NOW SIGNED MEMBER NUMBER 
C RESTORE PL FROM TEMP 
DO 4 JJ=i,JF 
4 PL(JJ)*TEMP(JJ) 
2 IF(NM) 130,400,30 
C I TH MEMBER IS POSITIVELY INCIDENT ON THE JM TH NODE 
C TRANSLATE THE + END DEFLECTION GIVEN TO THE - END 
C USE TRANSLATION MATRIX MINUS TO PLUS, TRANSPOSED 

30 CALL TRAMAT(NM,1) 
C PL CONTAINS THE RAW DATA , HERE THE JOINT DISPLACEMENTS 
DO 50 J J = l,JF 
PR(JJ) = 0.0 
DO 50 KK = 1,JF 

PRtJJ) * PR(JJ)+TtKK,JJ)*PL(KK) 
50 CONTINUE 
GO TO 200 
C I TH MEMBER IS NEGATIVELY INCIDENT ON THE JM TH NODE 
C SUBTRACT MINUS END APPLIED JOINT DEFLECTION 
130 00 150 JJ = 1,JF 
PR(JJ) * -PLtJJ) 
150 CONTINUE 
C NOW ROTATE DISTORTION INTO LOCAL (MEMBER) COORDINATES 
200 NM=XABSFtNM) 

CALL ALOCAT(KMKST,NM) 

CALL TRAMATCNM.2) 

DO 210 JJ = ItJF 

PL(JJ) = 0.0 

DO 210 KK * 1,JF 

PL(JJ) = PLtJJ)+T(JJ,KK)*PR<KK) 

210 CONTINUE 

C NOW ADD EFFECTIVE MINUS END DISTORTION TO V IN POOL 

211 K3=KUV+JLD 

K3 = IU<K3)+JF*(NM-i) 

DO 220 JJ = 1,JF 

IKI = K3+JJ 

U(IKI) = UtIKI)+PL(JJ) 
220 CONTINUE 
C NOW MULTIPLY THE DISPLACEMENT BY THE I TH MEMBER STIFFNESS 

K3=KMKST+NM 

K3=IUtK3) 

DO 250 JJ * ItJF 

PRtJJ) = 0.0 

DO 250 KK = 1,JF 

IKI = K3+tKK-l)»JF+JJ 

PR(JJ) = PRtJJ)+U( IKI)*PL(KK) 
250 CONTINUE 

CALL RELEAS(KMKST,NM) 
C NOW TRANSLATE FORCE TO PLUS (LEFT) END, CHANGING THE SIGN FOR 
C COMPATIBILITY WITH CASE2 

DO 260 JJ » 1,JF 

PL(JJ) = -PR (J J) 
260 CONTINUE 
C GET MEMBER LENGTH 

IKI = KS+(NM-l)»(NCORD+l)+l 

GO TO (300,270,280,300,290), 10 
C PLANE FRAME 

270 PL(3) = PL(3)+UUKI)*PL(2) 
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GO TO 300 
C PLANE GRID 

280 PL(3) = PL(3)-U(IKI)*PL(1) 
GO TO 300 
C SPACE FRAME 

290 PL(5) = PL(5)-U(IKI)*PL(3> 
PL(6) = PL(6)+UUKI)*PLI2) 
C CALL LSTOR TO PERFORM P ~ KU AND P(PRIME) * -A ( TRANSPOSE )KU 
C MEMBER NUMBER IS IN NM 
300 CALL LSTOR 
400 CONTINUE 

410 CALL R£LEAS(KATR,JM) 
CALL RELEAS(KATR,0) 
RETURN 
END 

* LIST8 

* LABEL 

* SYMBOL TABLE 
SUBROUTINE JTLCAD 

C STRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C THIS SUBROUTINE UNPACKS LOADS AND STORES IN KPPRI 

C JM NOW IS JOINT NUMBER 

C LEON RU-LIANG WANG RM. 1-255 EXT. 2117 

DIMENSION Y(6,6),T(6,6),PL(6),PR(6),FILL(13>,KSRTCHt9 ) , 
1 SYSFIL132), PR0FILC22), U(36), IU(36) 

COMMON U,IU,Y,T,PL,PR,JLD,NLS,JLC,LJ,J,K,NM,N,FILL,JM,EGO,S, 

1 CHECK,NMAX,INGRM,ISOLV, ISCAN, 1 1 1 1 , IMOD, JJJJ ,ICONT , ISUCC, IMERG, 

2 T0P,N1,NL,NT,NREQ,TN,LFILE, SYSF IL,NJ ,NB , NDAT, 10, JF,NSQ,NCORD, 

3 IMETH, NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR,ISGDG,NDSQ,NDJ,IPD8P, 

4 IUDBP,PROFILt 

5 NAME,KXY2,KJREL, 

6 JPLS,JMIN,MTYP,KPSI,MEMB,LOADS,MaDN,KS,KMKST,KSTDB,KATKA,KPPL$, 

7 KPMNS,KUV,KPPRI,KR,KSAVE,KWORK,KSRTCH,KDIAG,KOFDG,IOFDG,LOAON, 

8 MEGAO, JEXT, JINT ,KUDBP,KMEGA,KP08P 
EQUIVALENCE (U, IU, Y) 

C UNPACK LOADS 
C STORES JTLOAD IN KPPRI 
C JM IS INTERNAL JOINT NUMBER 
IF(JM-NFJS)i,l,5 
5 KP=KPDBP+t JM-NFJS-1)*JF+(JLD-1)*NDJ 
GO TO 8 
1 KP=KPPRI+ <JM-1)«JF+{JL0-1)*NSTV 
8 DO 10 1=1, JF 
KPI=KP+I 
10 U(KPI)=U{KPI)+PL(I) 
11 KPI=KPI 
RETURN 
END 

* LIST8 

* LABEL 

» SYMBOL TABLE 

SUBROUTINE LSTOR 
C STRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 
C THIS SUBROUTINE CHECKS MEMBER RELEASES AND MODIFIES PL AND PR, 
C CALL CASE2 STORES END LOADS IN KPPRI 

C MENDL ENOM AND MDISTN WILL ENTER THIS SUBROUTINE AFTER THEIR 
C COMPUTATION FOR W AND V 
C JUNE 17, 1963 
C JULY 23 63 
C LEON RU-LIANG WANG RM. 1-255 EXT. 2117 
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C AUG 02 63 S MAUCH 

C LSTOR CONTAINS MRELC (FROM 650 TO 60) TO MODIFY FIXED END FORCES 

C FOR RELEASES 

C U(KWORK) CONTAINS FCA=START CANTILEVER FORCES 

C CHANGE TO VERSION III AUG 30 S M 

C PL IS IN V, PR=RB8AR IS IN W 

DIMENSION Y<6,6),T<6,6),V(6),W{6),FILL(12), 
1SYSFIL ( 32 ), PROF ILI 22 ), U< 36 ),IU( 36) 

COMMON U,IU,Y,T,V,W,JLC,NLS,H,JT,J,K,JM,N,NS,L,FILL,NDEX,S, 
1CHECK,NMAX, INORM , ISOLV, I SCAN , 1 1 1 I , IMOD, J JJ J, ICONT, ISUCC, IMERG, 
2T0P,N1,NL,NT,NREQ,TN,LFILE,SYSFIL,NJ,NB,NDAT,ID,JF,NSG,NC0RD, 
3IMETH,NLDS,NFJS,NSTV,NMEMV, IPS I ,NMR,N JR, ISODG,NOSQ,ND J, I XX , 
41UD8P,PR0FIL, 
5NAME,KXYZ,KJREL, 

6JPLS,JMIN,MTYP,KPSI,MEMB,L0ADS,M0DN,KS,KMKST,KSTDB,KATKA,KPPLS, 
7KPMNS,KUV,KPPRI,KR,KSAV£,KW0RK,ARRFIL,SCR3,SCR4, SCR5 , SCR6,SCR7, 
8SCR8,SCR9,SCR10,K0IAG,K0FDG,I0FDG f LDNM,MEGA0,JEXT,JINI,KUDBP, 
9KMEGA f KPDBP f JTYP,MTYPl 
EQUIVALENCES, IU,Y) 
C UNPACK MTYP f RELEASE AND NS 
IA=MTYP+JM 

CALL UPACWIU(IA) ,IX,REL,L,NS,IX) 
C CHECK RELEASES 
B600 TEST=REL»007700000000 
IFCTEST)650,800,650 
650 IFCID-l)lt2tl 

1 IF(I0-4)3,2,3 
C 

C START-RELEASED TRUSS MEMBER 
C 

2 DO 9 1*1, JF 
IBB=KWORK+I 
WU) = U(IBB) 

9 V(I)=0.0 
GO TO 800 

C 

C START RELEASED NON-TRUSS MEMBER 

C 

3 IF(NDEX-A)5,800 f 800 

C IF MDISTN OR JDISPL FCA(CANT LEVER FORCE AT A)=0.0 NO MODIFICATION 
5 IXX=MTYP1+JM 

IXX=IU(IXX) 

CALL ALOCAT(KMEGA,IXX> 

JP=KMEGA+IXX 

JP=IU(JP) 
C MODIFY MINUS END FORCE FOR START RELEASE 

DO 10 1=1, JF 

IA*JP4I 

DO 10 NX=1,JF 

IAA=IA+(NX-1)*JF 

IBB=KWORK+NX 

10 W(I)s*(I)+U<IAA)«U(I8B) 
CALL CARRY(ID,JF,S) 

C NON TRANSLATE MODIFIED FIXED END FORCE TO PLUS END 
DO 60 1=1, JF 
IBB=KWQRK+I 
V(I)=U(IBB) 
DO 60 JP=1,JF 
60 V(I)=V(I)-T(I,JP)«N(JP) 
CALL RELEAS<KMEGA,IXX) 
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800 CALL CASE2(72,78> 
RETURN 
END 

* LIST8 
» LABEL 

• SYMBOL TABLE 
SUBROUTINE TRAMAT CJH 9 JT) 

C THIS SUBROUTINE COMPUTES THE FORCE TRANSLATION OR ROTATION MATRIX 

C STRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C VERSION II I. ..22 AUGUST 1963 

C KEN REINSCHMIDT, ROOM 1-255, EXT 2117 

C JM a MEMBER NUMBER 

C JT = 1, FORM TRANSLATION MATRIX ONLY, MINUS NOOE TO PLUS NODE 

C JT = 2, FORM ROTATION MATRIX ONLY. . .GLOBAL TO LOCAL 

C ID » It PLANE TRUSS, C0GRDINATES1,2 

C ID * 2, PLANE FRAME, COORDINATES It 2t 6 

C ID = 3, PLANE GRID, COORDINATES 3, 4, 5 

C ID = 4, SPACE TRUSS, COORDINATES 1, 2, 3 

C ID = 5, SPACE FRAME, COORDINATES 1, 2, 3, 4, 5, 6 

C IPSI = FLAG FOR EXISTENCE OF TWIST TABLE 

C KPSI * FIRST LOCATION OF TWIST ANGLE TABLE 

C DIMENSION STATEMENT FOR ARRAYS IN COMMON 

DIMENSION Y(6,6),T(6,6),Q(6,6), U( 36) , IU (36 ) , 
1 SYSFIL(27),PR0FIL(6), KRAY110) 

COMMON U,IU,Y,T,Q, 
4CHECK,NMAX,INGRM,IS0LV,ISCAN,IIII,IM0D,JJJJ,IC0NT,ISUCC,IMERG, 
5T0P,N1,NL,NT,NREQ,TN,LFILE,TCLER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
5T0P,N1,NL,NT,NREG,TN,LFILE,SYSFIL, 

8NJ,NB,NDAT,ID,JF,NSQ,NCQRD,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR, 
9NJR,IS0DG,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JLD 
COMMON JEXTN,MEXTN,LEXTN,JLC,NLDSI,IYOUNG,ISHEAR,lEXPAN,IDENS, 
1 PROF I L, 

4NAME,KXYZ,KJREL, JPLS,JMIN,MT YP, KPSI, MEMB, LOADS, MOON, KS,KMKST,KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,K0F0G, 
6 I0FDG,L0ADN,MEGA0,JEXT,JINT,KUDBP,KMEGA,KP0BP,JTYP,MTYP1,KB 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE (U,IU,Y) 
KM = KS-MJM-1)*(NC0RD+1>*1 
DO 12 I = 1,6 
DO 10 J = 1,6 
TU,J> = 0.0 
10 CONTINUE 

TCI, II = 1.0 
12 CONTINUE 

GO TO (50,100),JT 
C FORM THE SKEW-SYMMETRIC TRANSLATION MATRIX 

50 T(5,3) = -UUM+i) 
T(6,2) = UUM+1) 
T<4,3> = UUM+2) 
T(6,i) = -U(KM+2) 
IF (NCORD-3) 420,60,60 
60 T(4,2) = -UCKM+3) 

T(5,l) = U(KM+3> 
65 GO TO 420 
C ROTATION MATRIX.. .GLOBAL TO LOCAL 
C FORM THE DIRECTION COSINES 
100 IF (IPSI) 105,105,110 
105 SPSI = 0.0 
CPSI = 1.0 
GO TO 115 
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11C KK * KPSI+JM 

PIM0D=U(KK)/57. 2957795 

SPSI=SINF<PIMOD) 

CPSI=CGSF<PIMOD) 
C DIRECTION COSINES OF XI LOCAL AXIS 
C REVISED PORTION OF TRAMAT 1/13/64 
115 SL=UtKM) 

DELX=U(KM+1) 

DELY=U(KM*2) 

D£LZ=U(KM+3) 

IF(NC0RD-3)UQ,140,140 
130 DELZ=0.0 

140 D^SQRTF(DELX»DELX+DELZ*DELZ) 

C D IS UNSIGNED PROJECTION IN GLOBAL X-Z PLANE 
C IS MEMBER PERPENDICULAR TO THAT PLANE 

IF (D/SL-1.0E-06) 200, 160,160 
C MEMBER IS NOT PERPENDICULAR TO GLOBAL X-Z PLANE 
160 S1=DELZ/D 

S2*DELY/SL 

IFCID-4>164,165,165 
C PLANE STRUCTURE SET PSIl^O.O 

164 Cl=1.0 
C2=DELX/SL 
GO TO 166 

C SPACE STRUCTURE 

165 C1=DELX/D 
C2=D/SL 

166 T(1,1)»C2«C1 
Ttl,2)=S2 

T(1,3I=C2»S1 

T{2,1)*-S1»SPSI-C1*S2«CPSI 

TC2.f2)*C2»CPSI 

T<2,3)« C1»SPSI-S1«S2*CPSI 

T(3,U* Cl«S2*SPSI-Sl*CPSI 

T(3,2)*-C2*SPSI 

T(3,3)=C1*CPSI+S1«S2*SPSI 

GO TO 220 
C MEMBER IS PERPENDICULAR TO THE X1-X3 PLANE 

200 SIGN=ABSF(DELY)/DELY 

T(1,1)»0.0 
'TUt2l'*DELY/SL 

T<1,3)=0.0 

T(2,1)=-CPSI«SIGN 



220 

230 
420 
440 



T(2,2) = 


0.0 






T(2,3) * 


SPSI 






T(3,i) = 


SPSI*SIGN 






T(3,2) * 


0.0 






T(3,3) = 


CPSI 






FILL OUT 


MATRIX LOWER 


RIGHT 


DO 230 I 


[ = 1,3 






KK ~ 1+3 








DO 230 J 


» 1,3 






JK - J+3 








T(KK,JK) 


= T(I,J) 






CONTINUE 








DELETE AS REQUIRED 






GO TO (600,440,500, 


60C 


,600), ID 


PLANE FRAME 






DO 460 I 


= 1,2 






T(I,3) = 


TCI, 61 
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T(3,I) = T(6,I) 

460 CONTINUE 

T(3,3) = T(6,6) 

GO TO 600 
C PLANAR GRID 
500 DO 520 I * 1,3 

KK » 1+2 

CO 520 J = 1,3 

JK - J+2 

Til, J) « T(KK,JK) 
520 CONTINUE 
600 CONTINUE 

RETURN 

END 

* LIST8 

* LABEL 

» SYMBOL TABLE 

SUBROUTINE LINEARtSL, CO 
C STRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 
C MAY 9, 1963 

C LEON RU-LIANG WANG RM. 1-255 EXT. 2117 

C REVISED FOR VERSION III ON 30 AUGUST 1963 BY KEN REINSCHMIDT 
C THIS SUBROUTINE COMPUTES DEFLECTIONS AT RIGHT END OF A SEGMENT 
C UNDER A LINEARLY DISTRIBUTED LOAD, TRANSFORMS TO RIGHT END OF A 
C MEMBER AND SUMS OCT 9 S M STORED IN KWORK+30 COMPACTED 
DIMENSION U(36),IU(36),Y(6,6),TI6,6),PL<5),PR{7),BL(4), 
1 SYSFIL(27),PR0FIL(6), KRAY(9) 

COMMON U,IU,Y f T,PL,PR,JLD,NLS,H, JT, J,K, JM,N,NS ,L,BL, AA, I,B6,SB, 
1 A,B,C,D,EGO,S, 

4CHECK,NMAX,IN0RM,IS0LV,ISCAN, I II I, IMOD,JJJJ, ICONT, ISUCC, IMERG, 
5T0P,N1,NL,NT,NREQ,TN,LFIL£,TGL£R,IPRG,IRST,IRLD,IRPR,SYSFIL, 
8NJ,NB,NDAT,ID,JF,NSQ,NC0RD, IMETH,NLDS,NF JS,NSTV,NMEMV, IPSI ,NMR, 
9NJR,IS0DG,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JXX 
COMMON JEXTN,MEXTN,LEXTN,JLC,NLOSI,IYOUNG,ISHEAR,IEXPAN,IDENS, 
1 PROFIL, 

4NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ACS,M0DN,KS,KMKST,KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KWCRK,KRAY,KDIAG,K0FDG, 
6 I0FDG,L0ADN,M£GA0,JEXT,JINT,KUDBP,KMEGA,KPP8P,JTYP,MTYP1,KB 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE <U, IU, Y) 
C PR IS LOADED WITH SECTION PROPERTIES BY MEMBLD LENGTH IN PR(7) 
C USEFUL FUNCTION DEFINITIONS 

FIRSTF(X) = (AA/2.0 + BB) * C2/C3.0 • X) 
SECONF(X) = CAA/3.0 + BB) « C3/C8.0 » X) 
THIRDF(X) = (AA ♦ 2.75 « BB) • C4/13Q.0 • X) 
FORTHF(X) * (AA + 1.6666667 « BB) • C3/ (8.0 » X) 
KF=KWORK+ 30 
C COMPUTATION FOR A LINEAR DISTRIBUTED LOAD 
24 IF(SL-CC) 40, 40, 200 
40 SB=PR<7) 

GO TO 400 
200 SB= PR(7) -(SL-CC) 
205 IF(D-SL) 208,208,210 
208 BB=B 
DD=D 

GO TO 212 
210 BB=AA+<B-AA)»(SL-CC)/<D-CC) 

DD=SL 
212 CC1=DD-CC 
C2=CC1««2 
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C3»C2«CC1 
C4=C3»CC1 
SS=S-00 
C DEFLECTIONS- UNDER LINEAR LOAD , TRANSFORMS TO RIGHT END AND SUMS 

GO TO (213,220,245,213,270), ID 
C TRUSS, PLANAR OR SPATIAL 

213 IF(J-1)275, 275,395 
C PLANE FRAME 
220 I=KF+3 

GO TO (275,280,240, 395, 395, 395), J 
240 TEMQ= FIRSTF(PR(6) ) 
TEMP=FGRTHF(PR(6)) 
GO TO 285 
C PLANE GRID 

C J IS ALREADY COMPACTED TO TYPE 
245 IL=KF+1 

GO TO (248,300, 305, 395, 395, 395), J 
248 T£MQ=-SEC0NF(PR(5) ) 
GO TO 252 
C SPACE FRAME 
270 I=KF+6 
IL=KF+3 

GO TO (275, 280, 290, 300, 305, 240), J 
275 U(KF+1)=U(KF+1)+FIRSTF(PR(1) ) 

GO TO 400 
280 TEMQ= SEC0NF(PR(6) ) 
TEMP = THIRDF(PR(6)) 
IF (PR(2)) 284,285,284 
284 TEMP = TEMP ♦ FIRSTF ( PR( 2 )) /H 
285 U(KF+2)=U(KF+2)+TEMP+TEMQ*SS 
U(I)=U(I)+TEMQ 
GO TO 400 
290 TEMQ=-SEC0NF(PR(5) ) 
252 TEMP = THIRDF(PR(5)) 

IF (PR(3)) 294,295,294 
294 TEMP = TEMP + FIRSTF (PR( 3 ) )/H 
295 UdD'UC IL)+TEMP-TEMQ*SS 
U(IL+2)=U(IL+2)+TEMQ 
GO TO 400 
300 U(IL+l)=U(IL+l)+FIRSTF(PR(4) )/H 
GO TO 400 
305 TEMG =* FIRSTF(PR(5)) 
TEMP = -F0RTHF(PR(5) ) 
GO TO 295 
C WRONG FORCE DIRECTION FOR STRUCTURE 
395 CALL PRER2(13,JM,JLD) 
400 RETURN 
END 

* LIST8 

* SYMBOL TABLE 

* LABEL 
SUBROUTINE EFVDTL 

C STRESS PROGRAM.,. STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C VERSION 2 

C APRIL 4, 1963 

C LEON R. WANG ,RM 1-255 EXT. 2117 

C THIS SUBROUTINE COMPUTES PR=-K«U AND PL BY STATIC 

C Y=STIFFNESS MATRICES 

C VERSION III S M AUG 30 63 

DIMENSION Y(6,6) ,T(6,6), PL(6), PR(6),8L(4) , 
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1 SYSFILI32), PROFILUO), U(36),IU{36> 
COMMON U,IU,Y,T,PL,PR,JLD,NLS»H,JT,J,K,JM,N,NS,L,BL,AA,I,BB,SB 
COMMON A,B,C,D,EMD,S, 

1 CHECK,NMAX,INGRM,ISCLV,ISCAN,IMI,IMOD,JJJJ,ICONT,ISUCC,IMERG, 

2 TOP f Nl,NL,NT,NREQ,TN,LFILE,SYSFlL,NJ,NB,NDAT,ID,JF,NSQ,NCORD, 

3 IMETH, NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR,ISODG,NDSQ,NDJ,IPDBP, 

4 IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JLT,J£XTN,MEXTN,LEXTN,JLC,NLDSI 
5, PROF Ut NAME, KXYZtKJREL, 

6 JPLS,JMIN f MTYP,KPSI,MEMB,LQADS,MODN,KS,KMKST,KSTDB,KATKA,KPPLS, 

7 KPMNS,KUV,KPPRI,KR,KSAV£,KWCRK 
EQUIVALENCE (U, IU, Y) 
KA=KWGRK 

KD=KWORK+ 18 
KF=KWGRK+ 30 
C KF REFERS TO CANTILEVER DEFLECTION 
C GET K« INTO Y 

C NOV 21 63 CHANGE* TO KMKST SECONO LEVEL S MAUCH 
JU=KMKST+JM 
JU=IU(JU) 
00 10 1=1, JF 
PR(I)=0.0 
CO 10 J=1,JF 
JX=JU+JF«(I-1)+J 
10 Y(I,J)=U(JX) 
C RIGHT END FORCE VECTOR = K« TIMES CANTILEVER DEFLECTIONS WHICH 
50 DO 60 1=1, JF 
DO 60 M=1,JF 
KFM=KF+M 
60 PRU)=PR(I>*Y{I,M>*U(KFM) 
C TRANSFORMS RIGHT END FORCE VECTOR TO LEFT END 
00 65 1=1, JF 
KDI=KD+I 
65 U<KDI)=PR(I) 

GO TO (100,70,80,100,90), ID 
70 U(KD+3)=U{KD+3)+PR(2)«S 

GO TO 100 
80 U(KD+3)=UCKD+3)-PR(l)*S 

GO TO 100 
90 U(K0+5)=U(KD+5)-PRC3)»S 
U(KD+6)=U(KD+6)4PR(2MS 
C LEFT END FORCE VECTOR BY STATIC =APPLIED FORCE-PR 
100 CO 110 1=1, JF 
KAI=KA+I 
KDI=KO«U 
110 PL(I)=U(KAn-U(KOI) 
RETURN 
END 

* LIST8 

* LABEL 

» SYMBOL TABLE 

SUBROUTINE STICLD 
C MAY 7, 1963 

C STRESS PROGRAM. ..STRUCTURAL ENGINEERING SYSTEMS SOLVER 
C LEON RU-LIANG WANG RM. 1-255 EXT. 2117 
C VERSION III S M AUG 30 63 

C THIS SUBROUTINE COMPUTES RIGHT END AND LEFT END CANTILEVER FORCES 
C BY STATICS IN COMPACTEO FORM 

C LEFT END CANTILEVER FORCES STORE IN 1ST COLUMN OF Q 
C RIGHT END CANTILEVER FORCES STORE IN 3RD COLUMN OF Q 

DIMENSION Y(6,6),T(6,6), PL(6), PR(6),BL(4) , 
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1 SYSFIL(32), PR0FIU10), U(36),IU(36) 
COMMON U,IU,Y,T,PL,PR,JLD,NLS,H,JT,J,K, JM,N,NS,L,BL, AA, I ,B8, SB 
COMMON A,B,C,D,EMD,S, 

1 CHECK, NMAX, INGRM, I SOLV, I SCAN, 1 1 II , IMOD, J J J J , ICONT , ISUCC , I MERG , 

2 TOP,N1,NL,NT,NREQ,TN,LFILE,SYSFIL,NJ,NB,NDAT,ID,JF,NSQ,NCORD, 

3 IMETH, NLDS,NFJS,NSTV,NMEMV,IPSI,NMR,NJR,ISGDG,NDSQ,NDJ,IPDBP, 

4 IUDBP,NBB,NFJSl,JJC,JOC,JMIC,JMPC,JLT,JEXTN,MEXTN,LEXTN,JLC,NLDSI 
5,PRGFIL,NAME,KXYZ,KJR£L, 

6 JPLS, JMIN,MTYP,KPSI,MEMB,LOADS,MODN,KS,KMKST,KSTDB»KATKA,KPPLS, 

7 KPMNS,KUV,KPPRI,KR,KSAV£,KWGRK 
EQUIVALENCE (U, IU, Y) 
KA^KWGRK 

KAJ=KA+J 
C CHECK TYPE OF LOADING DEPENDING ON K 

9 GG TO (10, 90, 90), K 
C 

C TRANSFORMS CONCENTRATED LOAD TO LEFT END AND SUMS 
C SAME PROCEDURES TO RIGHT END 

10 U(KAJ)=U(KAJ)+A 

GO TO (200, 15,20, 200,25), ID 
15 GO TO (200,18,200) , J 
18 U(KA+3)=U(KA+3)+A*B 

GO TO 200 
20 GG TO (22, 200,200), J 
12 U(KA+3)=U(KA+3)-A«B 

GO TO 200 
25 GO TO (200, 30, 40,200,200, 200), J 
30 U(KA*6)=U(KA*6)+A*B 

GO TO 200 
40 U(KA*5)=U(KA+5)-A»B 

GO TO 200 
C 

C TRANSFORMS LINEAR DISTRIBUTED LOAD TO LEFT END END AND SUMS 
C SAME PROCEDURES TO RIGHT END 
90 T£MP=0.5*A*(D-C) 

TEMQ=0.5*B«(D-C) 

AVX=2.*C/3.+D/3. 

AVY=C/3.+2.*D/3. 

U(KAJ)=U(KAJ)+TEMP +TEMQ 

GO TO (200,95,100,200, 120), IC 
95 GO TO (200, 98, 200), J 
98 U(KA+3)=U(KA+3)+TEMP«AVX +TEMQ»AVY 

GO TO 200 
100 GO TO (110, 200, 200), J 
110 U(KA+3)=U(KA+3)-TEMP«AVX -TEMQ«AVY 

GO TO 200 
120 GO TO (200, 130, 140, 200, 200, 200,200), J 
130 U(KA+6)=U(KA+6)+TEMP*AVX +TEMQ*AVY 

GO TO 200 
140 U(KA+5)=U(KA+5)~TEMP«AVX -TEMQ*AVY 
200 RETURN 

END 

* FAP 

• CLEARS AN ARRAY WHOSE CODEWORD IS THE ONLY ARGUEMENT 
COUNT 16 

LBL CLEAR 
ENTRY CLEAR 
CLEAR CLA* 1,4 

ANA =G77777 
TZE BACK+1 
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CLA« 


1|4 


TMI 


DFUE 


SXA 


BACK, 1 


PAX 


tl 


LENGTH 


OF ARRAY INTO XR1 


ARS 


18 


ANA 


=0000000077777 


SSM 




ADO 


TOP 


STA 


»+l 


STl 


•••1 


TIX 


•-1,1,1 


AXT 


»*tl 


TRA 


2,4 


ANA 


=0000000777777 


SSM 




STO* 


lt4 


TRA 


BACK+1 


TSX 


U+l 


COMMON 


1 



BACK 
DFILE 



TOP 
U 

END 
» LIST8 

* LABEL 
CMAIN4/6 

DIMENSION Y(6,6),T(6,6),Q(6,6>,U<36),IU(36),SYPA{40>,FILL(6> 

COMMON U f T,Q,CHECK,NMAX,IN0RM,ISCLV,ISCAN,niI,IMOD,ILINK,IC0NT, 
lISUCC,SYPA f NJ,NB,NDAT,ID,JF,NSQ,NCORD,IMETH,NLDS,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR,IS0DG,N0SQ,NDJ,SDJ,NPR,NBB,NFJS1,JJC,JDC» 
3JMIC,JMPC,JLD,JEXTN,MEXTN,LEXTN,JLC,NLDSI,IY0UNG,ISHER,IEXPAN, 
4IDENS.FILL, 

5NAME,KXYZ,KJREL,JPLS,UMIN,MTYP,KPSI,MEMB, 

6L0ADS» INPUT,KS,KMKST,KSTDB,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR,KMK, 
7KV,K33,LA2R ,LA2RT,NV ,NTP ,NSCR7,NSCR8,NSCR9,NSCR10,K0IAG,K0FD 
8G,I0F0G,LDNM,MEGA0,JEXT, JINT,KUDBP,KMEGA,KPDBP, JTYP,MTYP1,KB,ML0AD 
9, JLOAD,KATR,LEXT,KYOUNG,KSHER,K£XPAN,KDENS 

EQUIVALENCE (UU) , IU< 1 ) ,Y( 1 > ) 

CALL TRANS 

ISUCC-ISUCC 

GO TO (1,20),ISUCC 

1 I50LV=6 
CALL ATKA 
ISUCC'ISUCC 

GO TO (2,20),ISUCC 

2 IS0LV*7 
IF(NJR)3,8,3 

3 CALL JRELES 
ISUCC'ISUCC 

GO T0(4,2dl,ISUCC 

4 IS0LV=8 
CALL FOMOO 
ISUCC=ISUCC 

GO T0(8,20),ISUCC 
8 IS0LV=9 

IFCNFJS>5,6,5 

5 CALL CHAINC5.A4) 

6 IS0LV=10 

CALL CHAIN«6,A4) 
20 CALL CHAINCl,A4) 
ENO 

• LIST8 
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* LABEL 

* SYMBOL TABLE 
SUBROUTINE TRANS 

C THIS SUBROUTINE ROTATES THE MEMBER STIFFNESS MATRIX(KMKST) INTO 
C GLOBAL COOROINATES(KSTDB) 

C NOV 19 CHANGING KMKST ,KSTDB TO 2 NO LEVEL NEEDED RECOMPILATIGN OF 
C PHAS1B MEMBER MRELES TRANS ATKA LOADPC LOADPS MDISTN JDISPL BAKSUB AVECT 
C NEWAOR NOV 17 TO 19 Y 1963 
C STRESS PROGRAMMING SYSTEM 

C THE PRIMITIVE STIFFNESS MATRICES ARE IN KMKST 
C THE ROTATED STIFFNESS MATRICES ARE PLACED IN KSTDB 
DIMENSION U(36),IU(36),Y(6,6),T(6,6), JUNK (20). 
1SYSFIL(27),PR0FIL(6),KRAY(1U) 

COMMON U,IU,Y,T,K3,K4,ID0WN,JD0WN,LD0WN,IUP,JUP,LUP,JB0TH,L80TH, 
1JBIG,JSML,LPLS,LMIN,NUP,MUP,JUNK, 

4CHECK,NMAX, INORM, ISCLV , ISCAN, II 1 1, IMOD, JJJ J, ICONT, ISUCC , IMERG, 
5T0P,N1,NL,NT,NREQ,TN,LFILE,TCLER,IPRG,IRST, IRLD, IRPR , SYSFI L, 
8NJ,NB,NDAT, ID, JF ,NSQ,NCORD, IMETH,NLDS ,NF JS ,NSTV,NMEMV , IPSI ,NMR, 
9NJR,IS0DG,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,J0C,JMIC,JMPC,JLD 
COMMON JEXTN,MEXTN,LEXTN, JLCNLDSI , IYOUNG, ISHEAR , I EXPAN, IDENS, 
1PR0FIL, 

4NAME, KXYZ, KJREL,JPLS,JM IN, MTYP,KPS I, MEMB, LOADS, MGDN.KS, KMKST, KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6I0FDG,L0ADN,MEGA0,JEXT,JINT,KUC8P,KMEGA,KP0BP,JTYP,MTYP1,KB 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCES, IU,Y) 
C GET NECESSARY ARRAYS 
CALL ALOCAT(KS) 
458 IFUPSI)50,60,50 
50 CALL ALOCAT(KPSI) 
C ZERO KSTDB 
60 CALL ALOCAT(KSTDB,0) 
CALL ALOCAT(MTYP) 
C LOOP FOR ALL MEMBERS 
J=0 
200 J=J+1 
I=J 
C TEST FOR I TH MEMBER PRESENT 
K1=MTYP+I 

IF(U(K1))70,201,70 
70 CALL ALOCAT(KMKST,I) 
CALL ALOCAT(KSTDB,I) 
K2=KSTDB+I 
CALL CLEARCIU(K2M 
K2=IU(K2) 
Kl=KMKST+I 
K1*IU(K1) 
C GET THE ROTATION MATRIX, JOINT GLOBAL TO MEM8ER LOCAL 

CALL TRAMATU,2> 
C MULTIPLY AND STORE 

CALL MATRIP(K1,K2,1) 
CALL RELEAS(KMKST,I) 
CALL RELEAS(KSTDB,I) 
201 IF(J-MEXTN)200,220,220 
220 CALL RELEAS(KMKST,0) 
CALL RELEAS(KPSI) 
RETURN 
END 
« LIST8 

* LABEL 
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« SYMBOL TABLE 

SUBROUTINE ATKA 
C THIS SUBROUTINE COMPUTES THE STIFFNESS TABLES 
C KENNETH F. REINSCHMIDT, ROOM 1-255, EXT.2117 
C STRESS PROGRAMMING SYSTEM 
C VERSION II I. ..22 AUGUST 1963 

C KDIAG.. .TABLE OF STIFFNESS SUBMATRICES ALONG MAIN DIAGONAL 
C KOFDG...OFF DIAGONAL STIFFNESS MATRICES 
C IOFDG... INDEX TABLE FOR OFF DIAGONAL STIFFNESSES 
DIMENSION UC36),IU(36),Y(6,6),T(6,6),JUNK(27), 
1SYSFIL(27),PROFIL<3),KRAY(10) 

COMMON U,IU,Y,T,K3,K4,K1,K2,NT, 
UBIG,JSML,LPLStLMIN,JUNK, 

4CHECK,NMAX,IN0RM,IS0LV, ISCAN, 1 1 1 1, IMOO, J JJJ, ICONT, ISUCC.IMERG, 
5T0P,NI,NL,NZ,NREQ,TN,LFILE.TGLER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
8NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NL0S,NFJS,NSTV,NMEMV,IPSI,NMR, 
9NJR,IS0DG,NDSQ,NDJ,IPD8P,IUDBP,NBB,NFJSltJJC,JDC,JMIC,JMPC,JLD 
COMMON JEXTN,MEXTN,LEXTN,JLC,NLDSI,IYOUNG,ISHEAR,IEXPAN,IDENS, 
1NBNEW,NLDG,JTSTA8,PR0FIL , 

4NAM£ f KXYZ,KJR£L,JPLS,JMIN,MTYP,KPSI,M£MB,LOAOS,MGDN,KS,KMKST,KSrD8 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6 IOFDG, LOADN,MEGAO, JEXT, JINT, IFDT ,KMEGA ,KPDBP, JTYP,MTYP1 , IOFC 
7,ML0A0,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE <U,IU,Y) 
C 

C DEFINE BIT REPRESENTATION OF ATKA (IOFDG TRANSPOSE) 
C 

JBIG={NJ»(NJ-1))/14400+1 
CALL DEFINE(IFDT,0, JBIG, 1,1,1) 
CALL ALOCAT(IFDT,0) 
DO 400 1=1, JBIG 
CALL DEFINE(IFDT,I,200,0,1,1) 
IF(M0DN)435,400,435 
435 LE*fFOT+i 

CALL CLEAR(IUCLE)) 
400 CONTINUE 
C GET IN THE NECESSARY ARRAYS 
C KS AND KSTDB ALLOCATED BY TRANS 
437 K1=K1 

CALL ALOCAT(JPLS) 
CALL ALOCAT(JMIN) 
CALL ALOCAT (JINT) 
CALL ALOCAT(KDIAG,0) 
CALL ALOCAT(KOFDG,0) 
CALL ALOCATUOFDG.O) 
C 

C IF MODIFICATION FIRST PART CLEAR ALL IOFDG 
C AND KDIAG 
C 

IF(M0DN)2,3,2 
2 DO 1 L=1,NJ 
LD=KDIAG+L 
1 CALL CLEARUU(LO)) 
C LM IS THE COUNT FOR THE KOFDG ARRAYS 
3 LM=0 

DO 700 L * l,MEXTN 
C TEST IF L TH MEMBER IS PRESENT 
Ki * MTYP+L 
IF (U(K1)) 60,700,60 
60 LPLS=JPLS*L 
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LMIN = JMIN+L 

LM=LM+1 
C CONVERT TO INTERNAL JOINT NUMBERS 

LPLS = IU(LPLS)+JINT 

LMIN = IU(LMIN)+JINT 

LPLS^IU(LPLS) 

LMIN=IU(LMIN) 

JBIG=XMAXOF(LPLS,LMIN) 

JSML=XMINOF(LPLS,LMIN> 
C GET TRANSLATION MATRIX, MINUS NODE TO PLUS NOOE 

CALL TRAMATCL.L) 
C ADD IN SUBMATRICES ON DIAGONAL 
C AT MINUS NODE, ADD IN DIRECTLY 

CALL ALOCATUOFOG, JBIG) 

CALL ALOCAT(KDIAG,LMIN> 

CALL ALOCAT(KOIAG,LPLS) 

CALL ALOCATUOFOG, LM) 
C KMKST AND KSTDB ARE MEXTN LONG BUT KOFDG IS NB LONG I E ONLY FOR NCN DELETED M 
C MEMBERS 

K2=KOF0G*LM 

CALL CL£AR(IU(K2)) 

CALL ALOCAT(KSTDB,L) 

K1*KSTDB+L 

Ki=IU(Kl) 

K2»KDIAG*LMIN 

K2 = IU(K2) 

CO 80 I = 1,NSQ 

K3 = K1*I 

K4 = K2+I 

U(K4) = U(K4)+U(K3) 
8C CONTINUE 
C AT PLUS NODE, PRE AND POST MULTIPLY BY THE TRANSLATION MATRIX 

K2=KDIAG*LPLS 

K2 * IU(K2) 

CALL MATRIP(K1,K2,2) 
C NOW GET OFF DIAGONAL SUBMATRICES IN LOWER TRIANGLE MATRIX ONLY 
C ASSUME PLUS AND MINUS NODES DISTINCT 

K2*K0FDG+LM 

K2 = IU(K2) 
320 IF(LPLS-LMIN)340,700,350 
340 NT * 1 

GO TO 355 
350 NT * 2 
355 DO 500 I « 1,JF 

DO 500 K * i,jf 

K4 * K2*(K-l)»JF*I 

DO 500 J « 1,JF 

GO TO (100, 300), NT 
C T IS THE POSTMULTIPLIER 
100 K3 * Kl+(J-l)»JF*I 
120 U(K4) = U(K4)-U(K3)«T(K,J) 

GO TO 500 
C T IS THE PREMULTIPLIER 
300 K3 * K1+(K-1)*JF+J 
330 U(K4) = U(K4)-T(I,J)»U(K3) 
500 CONTINUE 

CALL RELEAS(KDIAG,LPLS) 

CALL RELEAS(KDIAG,LMIN) 

CALL ADRESS(JBIG,JSML,0,0) 
360 JB=IOFDG+JBIG 
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C FILL IOFDG CURRENT LENGTH IS FIRST WORD OF DATA ARRAY 

C ADRESS PUTS THE BIT FOR THIS ARRAY INTO IFDT 

C 

C UNPACK LENGTH OF IGFDG(JB) INTO IB 

CALL UPADPUUUB ),A,B,IB) 

JB =IU(JB ) 
C INCREASE NUMBER OF ELEMENTS (IA) BY 1 

IA = IU(JB + 1) + 1 

CALL PADPIIUUB +1),0,IA,IB) 

JB=JB+IA+1 

CALL PADPdUUB ),0,JSML,LM) 

CALL RELEASI IOFDG, JBIG) 

CALL RELEAS(KOFDG.LM) 

CALL RELEAS(KSTDB,L) 
700 CONTINUE 

CALL RELEAS(KS) 
438 Kl=Kl 

CALL RELEAS(KSTDB,0) 

CALL RELEAS<KOFDG,0) 

CALL RELEAS( IOFDG, 0) 

CALL RELEASUFDT,0) 

CALL RELEAS(JPLS) 

CALL RELEAS(JMIN) 

CALL RELEAS(JINT) 

CALL RELEAS(MTYP) 

IF{ JTSTAB)8C0,850,800 

800 IF(NFJS)80l,850,80l 

801 CALL ALOCAT(JEXT) 
DO 950 I=i,NFJS 
CALL ALOCAT(KDIAG,I) 
K2=JEXT+I 
K2=IU(K2) 
C=1.00E-6 

K3 = KDIAG+I 

K3=IU(K3) 

K4=XDETRMF(JF,JF,U(K3),D) 

GO TO (950, 860, 870), K4 
860 CALL PRER2(21,K2,0.0) 

GO TO 952 
870 CALL PRER2(20,K2,0.0) 
952 ISUCC=2 
950 CALL RELEASCKDIAG, I) 

CALL RELEAS(JEXT) 
850 CALL RELEAS(KDIAG,0) 

RETURN 

END 
« LIST8 

* LABEL 

* SYMBOL TABLE 
SUBROUTINE STEP5 

C THIS SUBROUTINE IS CNLY CALLED IF THERE ARE FREE JOINTS NFJS IS POS 
C NOV 12 RECOMP TO ELIMINATE CARRY-OVER OF ADDRESSES PAST CALL ALOCATS 
C SUBSCRIPTS ARE M, I ) *{ I , J ) •( J,K) 
C MULTUPLY ATKA//»(MEGAO*A//TKA 

C IOFDG=MATRIX OF INOICES FOR AT/KA/ ONE INTEGER PER SUBMATRIX IN KOFDG 
CTHIS MATRIX HAS NJ ROWS FIRST IS OF LENGTH ZERO 
C MATRIX IS LOWER HALF OF A/TKA/ 

C REVISION DEC 31 63 TO NOT REDEFINE KOFDG(O) EVERY TIME THERE IS A NEW ARRAY 
DIMENSION Y{6,6),T<6,6) f Q(6,6),U<36),IU<36),$YPA(40),FILL{14),FIL 
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1L1C5) 

COMMON U,T,Q, CHECK, NMAX, I NORM, I SOLVE, I SCAN, I II I, IMOD, JJJJ, ICONT, 
lISUCC,SYPA,NJ,NB,NOAT f 10, JF, NSQ,NCORD, IMETH,NLDS ,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR,IS0DG,NDSQ,NDJ,IPB,IUPB,NB8,NFJS1 ,FILL,NBNEW, 
9FILL1, 

3NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB, 

4L0ADS, INPUT,KS,KMKST,KSTDB,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR f KMK, 
5KV,K33,LA2R ,LA2RT ,NSCR5, NSCR6,NSCR7,NSCR8 ,NSCR9 ,NSCR1C,KD I AG ,KOFD 
66, IOFDG,LDNM,MEGAO,JEXT,JINT,IFOT ,KMEGA,KPD6P , JTYP, MTYP1 
EQU I VALENCE (U(1)«IU(1I*Y(1I) 
C TEST IF A//TKA// IS HYPERDIAGONAL. 
C NBNEW IS PRESENT LENGHT OF KOFDG(O) 
2010 IF (NJ-NFJS1) 2,2,550 
C TEST FOR HYPERDIAG 
550 IP=NJ-1 

CO 480 K=NFJS1,IP 
CALL ADRESS(K+1,K,IS,4) 
461 IF(IS)470,480,470 
480 CONTINUE 
2 IHYPD=0 

GG TO 390 
470 IHYP0=1 
C 470 MEANS A//TKA// IS NOT HYPERDIAGONAL 

390 IA-IA 
C 

C START K LOOP 
C 

3 DO 500 K=1,NFJS 

C SEARCH FOR NONZERO COLUMN OF A//TKA 

C 

C START J LOOP 

C 

400 J=NFJS1 
C TEST IF THIS MEGAO IS NOT ALL ZERO AND NOT ALLOCATEO OR DEFINED 
C ADORESS WITH LAST ARG =4 SEARCHES DOWN TO NJ 

477 CALL ADRESS{J,K,IA3,4) 

4 IF(IA3)404,500,404 
404 CALL ALOCAT(KOIAG,K) 

JMS=J-NFJS 

CALL RELEAS(IGFDG,J) 

I22=MEGA0+JMS 

IFUUCI22) )250,391,250 
C NEXT FIND NON ZERO ROW IN ATKA// 

C SINCE ATKA IS STORED BY LOWER HALF ONLY M IS LARGER THAN K 
C 

C START M LCOP 
C START IP LOOP 

C WRITE DO LOOP ON IP IN LONG HAND BECAUSE IP IS REDEFINED INSIDE LCOP 
C 
250 CALL AL0CAT(K0F0G,IA3) 

CALL ALOCAT(MEGAO,JMS) 
C NEED JMS COLUMN CF MEGAO BUT SINCE SYMM JMS TH ROW IS OK (MUST SWITCH INDICES 

DO 421 M*K,NFJS 

IP=NFJS 
408 IP=IP+1 

IFUHYPD)423,424,423 
424 IP=J 

IA1=IA3 
C MUST ONLY CHECK 1 ELEMENT IN IOFDG(IP) SINCE A//TKA// IS HYPERDIAG SO LA=2 
423 CALL ADRESS(IP,M,IA1,4) 
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406 IF(IA1)428,472,428 
C 472 RELEAS IOFDG IP WHICH WAS ALLOCATED BY ADDRESS 
C IF IA1=0 NO MORE ELEMENTS IN COLUMN IP NEXT M 

428 I=IP-NFJS 
I22=MEGAQ+I 

C THIS CHECKS WETHER ELEMENT M£GAQ(I,JMS) IS A PRIORI ZERO 
IFUIM 122) 1429,472,429 

429 IMEGZ=MEGAO*JMS 
IMEGZ=IU(IMEGZ)+(I-l)*JF 
DO 4000 NN=1,JF 
NIN=IMEGZ+(NN-1)*N0J 

DO 4000 MIM*i,JF 

MXM*MIM+NIN 

IF{U(MXM))427,40C0,427 
4000 CONTINUE 

GO TO 472 
427 CALL AL0CAT(K0FDG,IA1) 

IF<K-M)450,440,450 

440 IR£S=KDIAG*K 
IRES=IU(IRES) 
GO TO 443 

450 CALL ADRESS(M,K,IAR,2) 

441 IF UAR)444,447,444 
C 447 CREATE A NEW KOFDG 

447 NB8=NBB+i 
IAR=NB8 
LA=IOFDG+M 
LA=IU(LA)+1 

CALL UPADP(IU<LA),DUM,LCU,LDE) 
LCU=LCU+i 

IF (LCU-LDE)430, 4 31,431 
4 31 LDE=LDE+XMIN0F((M-LCU)/2+2,LCU+l,30) 
CALL CEFINEUOFDG,M,LDE, 0,1,1) 
LA=I0FDG+M 
LA*IU(LA)+1 

430 CALL PADPUU(LA),0,LCU,LOE) 
LA=LA+LCU 

CALL PADPUUUA),0,K,NB8) 
CALL ADRESS(M,K,0,0) 
C TEST IF NEED REDEFINE KOFDG(C) 
IF(NBB-NBNEW)449,449,448 

448 NBNEW=NBNEW+NB/4+5 

CALL DEFINE(KOFDG,0,NBNEW, 1,1,1) 

449 CALL DEFINE(KOFOG,NBB,NSQ, 0,0,1) 
444 CALL RELEAS(IOFDG,M) 

CALL ALOCAT(KOFDG,IAR) 

IKES=K0FDG+IAR 

IR£S=IUURES) 
C SUBSCRIPTS ARE (LA, NA ) *(NA,NX )* <NX,LB ) 
C NOW COMPUTE ADRESSES FOR USED ARRAYS 
443 I1*K0FDG+IA1 

I1 = IUM1) 

I3*K0FDG+IA3 

I3-IUU3) 

I22=M£GA0+JMS 

I22 = IU(I22) + U-1)«JF 

DO 460 LA=1,JF 

CO 460 LB-1,JF 

NADR=IRES + UB-1)*JF + LA 

DO 460 NA=1,JF 
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I2=I22+NA 

NADl=U+(LA-i)»JF+NA 

DO 460 NX*1,JF 

NAD2«I2+(NX-1)»NDJ 

NA03=I3+<LB-1)«JF+NX 
460 U(NADR)=U(NA0R)-U{NAD1)*U<NAD2)*U(NAD3) 

IF(K-M)417,420,417 
417 CALL RELEAS(KOFDG,IAR) 

420 CALL RELEAS(K0FDG,IA1) 
472 CALL RELEASUGFOG, IP) 

C TEST OF IP LOOP 

IF(IHYPD)47i,421,471 
471 IF UP-N J) 408, 42 1,421 

421 CONTINUE 

402 CALL RELEAS(MEGAO,JMS) 
391 CALL RELEAS(K0FDG,IA3) 
401 J=J+1 

IF(J-NJ)477,477,500 
500 CALL RELEAS(KOIAG,K) 
C ENO STEP 5 
RETURN 
END 
» LIST8 
• SYMBOL TABLE 
» LABEL 

SUBROUTINE JRELES 
C AUG 05 1S63 VERSION III 
C REVISION NOVEMBER 14 63 S MAUCH 

C NJR IS THE TOTAL NUMBER OF RELEASED DIRECTIONS SPECIFIED AT JOINTS 
DIMENSION Y<6,6),Tt6,6),Q(6,6),U{36),IU<36) ,SYPA (40 ) ,FI LL { 20 ) 
COMMON U,T,Q,CHECK,NMAX,INORM,ISOLVE,ISCAN,IIII,IMOD,JJJJ,lCONT, 
1ISUCC,SYPA,NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR,IS0DG,NDSQ,NDJ,IPB,IUP8,N88,NFJS1 ,FILL, 
3NAME,KXYZ,KJREL,JPLS,JMIN,MrYP,KPSI,MEMB, 

4L0ADS, INPUT,KS,KMKST,KSTDB,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR,KMK, 
5KV,K33,LA2R ,LA2RT ,NSCR5,NSCR6,NSCR7,NSCR8,NSCR9,NSCR10,KDIAG,KGFO 
6G,I0FDG,LDNM,MEGA0,JEXT,JINT,KUDBP,KMEGA,KP0BP,JTYP,MTYP1 
EQU I VALENCE ( U ( 1 ) , I U ( I ) , Y < 1 ) ) 
CALL ALOCAT(KDIAG,0) 
CALL ALCCAT(KOFDG,0) 
CALL ALOCAT(IOFDG.O) 
CALL ALOCAT(KS) 
CALL ALOCAT(KJREL) 
CALL ALOCAT(JMIN) 
CALL ALOCAT(JPLS) 
CALL ALOCAT(KXYZ) 
CALL DEFINECKV, NJR, 0,0,1) 
CALL ALOCAT(KV) 
CALL ALOCAT(JINT) 
50 NDSQ=NJR*NJR 
C 

C STEP 1 
C GENERATE LA2R 
C IOFDG IS SECOND LEVEL ARRAY 
C 

LEN=NJR*JF 

CALL DEFINE(LA2R,LEN, 0,1,1) 

CALL AL0CATUA2R) 

IA=NJR+KV+1 

NDU=0 
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LEN=LA2R+LEN 

NBOT=NJR 

I1=KJREL+1 

KST=IUUi) 

00 100 NPI=1,KST 

I2=I1*(NPI-1)»5+1 

JNR=IU(I2) 

N*JINT*JNR 

N=IU(N) 
C N IS NOW THE INTERNAL JOINT NUMBER 

JREL«IUU2 + i> 
C JREL IS NOW THE RELEAS CODE 

JD=N-NFJS 

IF<JREL>100,100,2 
2 CALL TTHETA<I2+1,ID,JF> 
C TRANSFORMATION TCO// FOR JOINT JD (INTO Q) ,DONE BY TTHETA 

DO 1 IDIR=1,JF 

20 MMaJREL 

CALL UNPCMMM, IDIR, ID) 

IF(MM)1,1,4 
4 NDU*NDU+1 

NLAA-LEN-JF*NDU 

NB0T=NB0T-1 

DO 3 IR=1,JF 

NLA=NLAA+IR 
C COPY ROW IDIR OF TCO// INTO LA2R 

3 UCNLA)*Q(IDIR,IR) 
C STORE LOGIC OF LA2R IN KV. 

IKV=IA-NDU 

IU(IKV)=J0 

IF(NB0T>6,1,1 
1 CONTINUE 
100 CONTINUE 
C LA2R IS NOW AVAILABLE, STORED AS TABLE ONLY. 
C 

C END STEP 1 
C STEP 2 

C NEXT STEP SET UP K33 AND INVERT* M 

C LOGICAL TRIPLE PRODUCT (LA2R) (SQARE) (LA2RTRANSP) -K33 
C 

6 CALL STEP2 
C STEP 3 

C INVERT K33 VIA BUGER 
C 

21 IA=IA 
IF(NJR-i)62,62,67 

62 I*K33+1 

IF(U(l>>66,622,66 

66 U(I)=1./U(I) 
GO TO 61 

C ALOCAT NSCR6 AND USE IT AS UNIT MATRIX 

67 CALL DEFINE(NSCR6,NJR*tNJR+l), 0,0,1) 
CALL AL0CATINSCR6) 

C CLEAR NSCR6 

CALL CLEAR(NSCR6) 
C ESTABLISH UNIT MATRIX TO INVERT K33 

DO 60 1=1, NJR 

IA=NSCR6+(I-1)«NJR*I 
60 U(IA)=1.0 

NDSS=NJR 
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IAVEC=NSCR6+NDSQ 
00.0000 

CALL BUGER (NDSS» NDSS,NDSS,K33 ,NSCR6 ,C,IAVEC) 
CALL RELEAS(NSCR6,0,0) 
65 GO TO (61,622, 622),N0SS 
622 ISUCC=2 

CALL PRER2(7,2,NJR) 
8999 GO TO 9000 
C K33(-l) IS NOW IN K33 
C ENO STEP 3 
C STEP 4 

C DEFINE MEGAO AND CLEAR ITS DATA ARRAYS 

C MEGAO WILL HAVE NDAT ARRAYS EACH CONTAINS JF ROWS OF MEGAO 
C CLEAR CODE WORD ARRAY BEFORE DEFINING DATA. NOT ALL DATA MAY BE ALLOCATED 
CAND CODEWORDS ARE TESTED FOR ZERO IN FOMOD STEP5 (MODS) 
61 CALL DEFINE(MEGAQ, 0,0, 1,0,1) 
CALL ALOCAT(MEGAC,0) 
CALL DEFINE(MEGAO,0, NDAT, 1,0,1) 
C TRIPLEPROD LA2RT«K33 (-1 ) «LA2R. JRELES 
C SUBSCRIPTS ARE ( I ,L ) • (L ,M ) * (M, J ) 
NDU-0 

DO 2000 L=1,NJR 
I=KV+L 
I=IU(I) 

IF(I-NDU) 1602, 1601, 1602 
1602 NDU=I 
C STATEMENT 1600 IS ONLY REACHED 1 TIME (SPECIAL PROPERTY OF LA2R 
1600 CALL DEFIN£(MEGA0,I,NDJ*JF,0,0,1) 
CALL AL0CAT(MEGA0,I) 
IRES=MEGAO+I 
CALL CLEAR(IUURES) ) 
1601 DO 1900 11*1, JF 

Il=LA2R+(L-l)»JF+II 
DO 1800 M=1,NJR 
I2=K33+(M-1)«NJR+L 
IF(U(I2))1701, 1800, 1701 
1701 J=KV+M 
J=IU(J) 

DO 1750 JJ=1,JF 
I3=LA2R+(M-l)*JF+JJ 

IRESU=IU(IRES)+JJ*(II-1)*NDJ+(J-1)»JF 
1750 U(IRESU)=U(IRESU)+U(U)«U(I2)*U(I3) 
1800 CONTINUE 
1900 CONTINUE 

CALL RELEAS(MEGA0,I) 
2000 CONTINUE 
C 
C MEGAO NOW CONTAINS OMEGA ZERO SIZE = (NDAT*JF) «(NDAT*JF) 

CALL RELEAS(K33,0,0) 
C 

1604 NDU=0 
C ENO STEP 4 
C STEP 5 

C MULTIPLY ATKA//*(K33(-1))*A//TKA 
C 

IF(NFJS)90C0,9000,8C01 
8001 CALL STEP5 

9000 CALL RELEAS(LA2R,0,0) 
CALL RELEAS(KV,0,0) 

9001 RETURN 
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END 

* LABEL 

* LIST8 

SUBROUTINE MATRI P{ Kl, K2,NT ) 
C SUBROUTINE MATRIP COMPUTES THE MATRIX TRIPLE PRODUCT 
C T(TRANSPOSE)*Y*T OR T*Y*T ( TRANSPOSE > 
C AND ADDS THE RESULT INTO POOL AT K2 
C KEN REINSCHMIDT, RGOM 1-255, EXT. 2117 

C STRESS PROGRAM.. .STRUCTURAL ENGINEERING SYSTEMS SOLVER 
C VERSION III. ..22 AUGUST 1963 

C Ki = PCOL LOCATION OF THE MIDDLE MULTIPLIER 
C K2 = PCOL LOCATION WHERE PRODUCT IS TO BE STORED 
C NT » 1 IF THE PREMULTIPLIER IS TO BE TRANSPOSED 
C NT « 2 IF THE POSTMULTIPLIER IS TO QE TRANSPOSED 
C T IS ASSUMED FILLED BY TRAMAT 
C DIMENSION STATEMENT FOR ARRAYS IN COMMON 

DIMENSION U(36), IU (36 > , Y (6,6 ) , T( 6,6 ) , JUNM 20 ) , 
1 SYSFIL(27),PRCFIL(6), KRAY(IO) 

COMMON U,IU,Y,T,K3,K4,IDCWN, JDGWN.LDOWN, IUP, JUP, LUP, JBOTH,LBOTH, 
UBIG,JSML,LPLS,LMIN,NUP,MUP, JUNK, 

4CHECK,NMAX,IN0RM,IS0LV,ISCAN,IIII,IM0D,JJJJ, ICGN T , ISUCC, IMERG , 
5T0P,N1,NL,NT,NREG,TN,LF1LE,TCLER,IPRG,IRST,IRLD, IRPR,SYSFIL, 
8NJ,NB,NDAT,ID,JF,NSQ,NC0R0,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR, 
9NJR,IS0DG,NDSQ,NDJ,IPD8P,IUDBPtN8B,NFJSl,JJC,JDC,JMIC,JMPC,JL0 
COMMON JEXTN,MEXTN,LEXTN,JLC,NLDSI, I YOUNG, I SHEAR , I EXPAN, I DENS, 
1 PROFIL, 

4NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ADS,MGDN,KS,KMKST,KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,K0IAG,KOFDG, 
6 I0FDG,L0A0N,MEGA0,JEXT,JINT,KUD8P,KMEGA,KPDBP,JTYP,MTYP1,K8 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,K0ENS 
EQUIVALENCE (U,IU,Y) 
10 DO 100 I = 1,JF 
DO 100 L = 1,JF 
K3 = K2+(L-1)*JF+I 
DO 100 J = 1,JF 
DO 100 K = 1,JF 
K4 * Kl+(K-i)*JF+J 
GO TO (50, 60), NT 
C TRANSPOSE THE PREMULTIPLIER 

50 U(K3) = U(K3) 4T(J, l) *U(K4) *T (K,L I 
GO TO 100 
C TRANSPOSE THE POSTMULTIPLIER 

60 U(K3) = U(K3)+T(I,J)*U(K4)*T(L,K1 
100 CONTINUE 
RETURN 
END 

* FAP 

* ADDRESS ROUTINE FOR NEW BOOKKEEPING SYSTEM 
« R.D.LOGCHER 2/9/64 

COUNT 150 
LBL ADRESS 
ENTRY ADRESS 
ADRESS SXA END,1 

SXA END+1,2 

CLA* 1,4 SAVE FOR UNCHANGED CALL SEQUENCE 

STO N 

CLA* 2,4 DITTO 

STO I 

CLA* 4,4 OPERATION NUMBER 

TNZ BITC TRANSFER NOT PLACING BIT 
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TSX 


COUNT, 1 




ORS 


U*l,2 


£N^ 


AXT 


«»,i 




AXT 


»»,2 




TRA 


5,4 


bITC 


SUB 


TWO 




STO 


TEST 




TZE 


SEEK 




TPL 


SIZEK 




CLA 


NFJS 




STO 


TEMP 


SEEK 


TSX 


COUNT, 1 




ANA 


U + 1,2 




TZE 


NPRES 




SXA 


RNT, 4 




CALL 


ALCCAT,IOFDG,N 


RNT 


AXT 


**,4 




CLA 


IOFDG 




ADD 


N 




POX 


,2 




CLA 


U+1,2 




PDX 


*2 




CLA 


U,2 




POX 


,1 




PXA 


t2 




ADD 


= 1 




SSM 






ADD 


TOP 




STA 


LOOK 


LOOK 


CLA 


♦•ti 




ANA 


=0077777000000 




LAS 


I 




TRA 


* + 2 




TRA 


FOUND 




TIX 


LOOK,l,i 




TSX 


$EXir,4 


FOUND 


CLA* 


LOOK 




ALS 


18 




SLW* 


3,4 




TRA 


END 


NPRES 


STZ* 


3,4 




NZT 


TEST 




TRA 


ENR 




CLA 


TEMP 




sue 


N 




rzE 


END 




TMI 


ENO 




CLA 


N 




ADD 


ONE 




STO 


N 




STO* 


1,4 




TRA 


SEEK 


ENR 


SXA 


TNR, 4 




CALL 


ALOCAT, IOFDG, N 


TNR 


AXT 


**,4 




TRA 


END 


SI2EK 


sue 


ONE 




TIE 


* + 4 




CLA 


NJ 




STO 


TEMP 



FIND ARRAY 

FIND NUMBER OF ARRAYS IN COLUMN 



BIT AND ARRAY NOT PRESENT 



FIND ARRAY POSITION IN KOFOG 



NUMBER OF ARRAYS IN ROW 



FIND ARRAY POSITION 



RETURN NOT FOUND INDICATION 
RECYCLE FOR COLUMN SEARCH 



MORE ELEMENTS IN COLUMN 



UPDATE N 
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SZE 



DNE 



COUNT 



TRA 


SEEK 


SXA 


DNE,4 


CLA 


I 


ADO 


ONE 


STO 


N 


AXT 


0,4 


TSX 


COUNT, I 


ANA 


U + 1,2 


TZE 


* + 2 


TXI 


•+1,4,1 


CLA 


NFJS 


SUB 


N 


TZE 


* + 5 


CLA 


N 


ADD 


ONE 


STO 


N 


TRA 


SZE 


PXD 


,4 


AXT 


•*»4 


STO* 


3,4 


TRA 


END 


CALCULATE BIT PO 


BIT COUNTER 


CLA 


I 


ADD 


ONE 


XCA 




MPY 


I 


LRS 


36 


DVH 


= 2 


STQ 


SUM 


CLA 


I 


SUB 


ONE 


XCA 




MPY 


NJ 


ARS 


1 


SUB 


SUM 


STO 


SUM 


CLA 


N 


ARS 


18 


ADD 


SUM 


STO 


SUM 


ARRAY 


COUNT 


SUB 


= 1 


LDQ 


= 


XCA 




DVH 


= 7200 


XCA 




ADD 


= 1 


ALS 


18 


STO 


M 


CLM 




DVH 


= 36 


STO 


L 


XCA 




ADD 


= 1 


ALS 


18 


STC 


J 


IS ARRAY OF IFDT 


CLA 


IFDT 


TPL 


TRN 



ELEMENT PRESENT , INCREMENT COUNTER 



AND READY FOR USE 



BIT COUNT, RIGHT JUST. IN WORD 

REMAINDER IN MQ 

ARRAY COUNT TO DECREMENT 

BIT POSITION - 1 

WORD NUMBER 



IN CORE 
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SXA 


TRN-2,4 




CALL 


ALCCAT, IFOT, ZERO 




AXT 


**,4 




CLA 


IFDT 


TRN 


AOO 


M 




PDX 


»2 




CLA 


U*l,2 




TPL 


CONTN 




SXA 


RET, 4 




CALL 


ALCCAT, IFDT, M 




CALL 


RELEAS,IFDT,M 


RET 


AXT 


*», 4 




CLA 


IFDT 




ADO 


M 




PDX 


»2 




CLA 


U + 1,2 


CONTN 


ADD 


J 




PDX 


t2 




CLA 


L 




STA 


•♦2 




CLA 


= 1 




ALS 


»* 




TRA 


1,1 


N 


PZE 




I 






TEST 






SUM 






M 






L 






J 






TEMP 


PZE 




ZERO 


PZE 




ONE 


OCT 


10CCOCO 


TWO 


OCT 


2000000 


U 


COMMON 


119 


TOP 


COMMON 


39 


NJ 


COMMON 


9 


NFJS 


COMMON 


65 


IOFDG 


COMMON 


5 


IFOT 


COMMON 


1 



PREPARE BIT MASK 



END 

* LIST8 

* SYMBOL TABLE 
» LABEL 

SUBROUTINE STEP2 
C LOGICAL TRIPLE PRODUCT (LA2R) (A//TKA//) (LA2RTRANSP) 

C NOTE IOFOG MUST BE OF SIZE ( (NJ-1 ) »NJ/2 ) FOR IT MUST INCLUDE SUPPORT PORTION 
C REVISION JAN 9 64 S M TO PROPERLY RELEAS ARRAYS 
C S M REVISION FOR NEW SOLVER BOOKKEEPING SYSTEM 

DIMENSION Y(6,6),T(6,6),Q(6,6),U(36),IU(36),SYPA(40),FILL(20) 
COMMON U,T,Q, CHECK, NMAX, INORM, ISOLVE, ISCAN, 1 1 1 1 , IMOD , JJJ J, ICONT, 
iISUCC,SYPA,NJ,N8,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR, I SODG,NDSQ,NDJ , IPB, IUPB,NBB ,NFJS1,FILL, 
3NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB, 

4L0A0S, INPUT^S.KMKST.KSTDB^ATKA.KPPLSVKPMIN^UVjKPPR^KR^MK, 
5KV,K33,LA2R ,LA2RT ,NSCR5,NSCR6, NSCR7,NSCR8, NSCR9 ,NSCR10,KDIAG ,K0FD 
6G,I0FDG,LDNM,MEGA0,JEXT,JINT,KUD8P,KMEGA,KPDBP,JTYP,MTYP1 
EQUIVALENCE(U(1),IU(1),Y(1)) 
6 CALL 0EFINE(K33,NDSC, 0,1,1) 
CALL CLEARCK33) 
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CALL ALOCATU33) 
DO 55 K=i,NJR 
IKV=KV+K 
I=IU(IKV) 
DO 50 J=1,NJR 
IAP=KV+J 
IP = IUUAP) 
C COMPUTE ADDRESS OF SUBMATRIX, IN SQUARE ARRAY* 
C INDICES OF TRIPLE PRODUCT ARE <K, I )«U , IP )* ( IP, J ) 
INS=I+NFJS 
1 IFU-IPU4, 11,13 
C KDIAG AND KOFOG ARE SECOND LEVEL ARRAYS 
11 CALL ALOCAT(KDIAGtlNS) 
NA2=KCIAG+INS 
N2=IU(NA2) 
GO TO 122 
13 IR=I 
IC = IP 
IND=0 
GO TO 16 
14 IR*IP 
IC=I 
IND=1 
16 CALL ADRESS(NFJS-HR,NFJS-HC,NA2,2) 
15 IF(NA2)50,50,120 
120 CALL AL0CAT(K0F0G,NA2> 
N2=KOFDG+NA2 
N2=IU(N2> 
122 Ni={K-l)*JF+LA2R 
N3=(J-1)*JF+LA2R 
N4=K33+(J-1)*NJR+K-1 
C COMPUTE THIS ELEMENT OF K33 

CALL MAPR0D{N1,N2,N3,N4,1,JF,IND> 
56 IF( I-IP)140,U0,140 
110 CALL RELEAS(KDIAG,INS) 

GO TO 50 
140 CALL RELEAS(K0FDGtNA2) 

CALL RELEAS(IOFDG,NFJS+IR) 
C FIRST 4 ARG. ARE U-ADDRESSES. LAST 
C TWO ARE SIZES OF ARRAYS. 
50 CONTINUE 
55 CONTINUE 
C 

C END STEP 2 

C TRIPLE PROD. IS COMPUTED AND STORED. IN K33.FULL SIZE (NJR*NJR) 
RETURN 
END 

* LIST8 

* LABLE 

* SYMBOL TABLE 

SUBROUTINE TTHETAUJND, ID, JF ) 

DIMENSION U(72I,Q(6,6) 

COMMON U,Q 

CALL COPY(C,Q,JF,0,0) 

PIM0D=57. 2957795 
204 THA1=U<KJND*1)/PIM0D 

CT1=CCSF(THA1) 

ST1=SINF(THA1) 

IFUD~3)300, 300,301 
300 THA2=0.0 
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THA3=0.0 
GO TO 302 

301 THA2=U(KJND*2)/PIM00 
THA3=U(KJND+3)/PIM00 

302 CT2=C0SF(THA2> 
ST2=SINF(THA2> 
CT3=C0SF<THA3> 
ST3=SINF(THA3> 
IF(iD-3)304,303,304 

304 11*1 
12*2 
13=3 

GO TO 305 

303 11=2 
12=3 
13=1 

305 G(U,I1)=CT1«CT2 
CU1,I2) = ST1»CT2 
CU2,I1)=-CT3*ST1 

CU2, I2)=CT3*CT1-ST1*ST2»ST3 

G(I3,I3>=1.0 

IF{ID-4)306,307,307 
307 C(3,1)=-CT3*ST2*CT1+ST3»ST1 

Gt3,2)=-CT3»ST2*ST1-ST3«CT1 

G<3,3)=CT3»CT2 

QC1,3)=ST2 

C(2,3)=ST3*CT2 

IFCID-4)306,306,308 
308 DO 309 1=1,3 

DO 309 J=l,3 
309 QU+3,J+3)=Q(I,J) 
C Q NOW CONTAINS TCO// (ROTATION) 

306 RETURN 
END 

• LIST8 

* LABEL 

» SYM80L TABLE 

SUBROUTINE MAPRODtNl ,N2,N3,N4, IS , JF, IND ) 
C TRIPLE OR DOUBLE PROD. OF U-ARRAYS 
C N1»N2«N3=N4 

C ARRAYS ARE STORED COLUMN WISE 
C N2 IS SQUARE 

C IS=C0LUMN ORDER OF N3=R0W ORDER OF 
C TRIPLE PROD N2 IS NOT TRANSP IND=0 
C TRIPLE PROD N2 IS TRANSP IND=1 
C DOUBLE PROD N2*N3 NOTHING TRANSP IND=2 
C DOUBLE PROD N2»N3 N3 IS TRANSP IND=3 
C IN THIS CASE N3 MUST 8E JF*JF I.E. JF=IS 
C N2*N3 N2 IS TRANSP IND=4 
C 1 IS TRIPLE PROC 

DIMENSION U(36) 

COMMON U 
10 IF(IND-2)1,2,2 
1 DO 100 1 = 1, IS 

DO 100 K=1,IS 

NA4=N4*(K-1)*IS+I 

DO 90 N=1,JF 

NA1=N1+(N-1)*IS+I 

DO 90 M=1,JF 

NA3=N3+(K-1)*JF+M 
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11 IFUND)4,4,3 

4 IOM 
IR=N 

GO TO 5 
3 ION 

IR=M 

5 NA2=N2*UC-1)*JF + IR 

90 U(NA4)=U(NA4>+U(NA1I»U(NA2)*U(NA3> 
100 CONTINUE 

60 TO 1000 

2 IFUND-3)6,6,7 

6 DO 200 N=*1,JF 

CO 200 K=i,IS 

NA4-N4*(K-1)«JF+N 

00 190 M=1,JF 

NA2=N2+(M-1)«JF+N 
12 IFIIN0-2)104, 104,103 

104 IOK 
IR=M 

GO TO 105 
103 IC=M 
IR-K 

105 NA3=N3+(IC-1)*JF*IR 

190 U(NA4)*U(NA4)+U(NA2)»U(NA3) 
200 CONTINUE 

GO TO 1000 
7 00 300 N=1,JF 

00 300 K=1,IS 

NA4*N4*tK-l)*JF+N 

DO 290 M=1,JF 

NA3=N3*CK-1)»JF+M 

NA2*N2*<N-1)«JF+M 
290 U<NA4)=U<NA4>+U(NA2)»U{NA3> 
300 CONTINUE 
1000 RETURN 

EN0 

• LISTS 
« LABEL 
CMAIN5/6 

DIMENSION Y(6,6),T<6,6),Q(6,6),UC36),IU(36>,SYPA<40),FILL(6) 

COMMON U,T,Q, CHECK, NMAX, INORM, I SOLV, ISCAN, II 1 1 ,IMOD, ILINK, ICONT, 
1ISUCC,SYPA,NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NjR,IS0DG,NDSQ,NDJ f SDJ,NPR,NBB,NFJSl,JJC,JDC, 
3JMIC,JMPC,JLD, JEXTN,MEXTN,LEXTN,JLC,NLDSI, I YOUNG, I SHER, IEXPAN, 
4IDENS,FILL, 

5NAME,KXY2,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB, 

6L0ADS, INPUT,KS,KMKST,KSTOB,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR,KMK, 
7KV,K33,LA2R .LA2RT,NV ,NTP ,NSCR7, NSCR8,NSCR9,NSCR10,KDIAG ,KOFO 
8G,I0FDG,LDNM,MEGA0,JEXT,JINT,KUDBP,KM£GA,KPDBP,JTYP,MTYP1,KB,MLGAD 
9,JL0AD,KATR,LEXT,KY0UNG,KSHER,KEXPAN,KDENS 

EQUIVALENCE(U(1),IU(1),Y(D) 

CALL SOLVER 

ISUCC=ISUCC 

GO TO (1,2),ISUCC 

1 ISOLV=10 

CALL CHAIN(6,A4) 

2 CALL CHAINU,A4> 
ENO 

« LIST8 

* LABEL 
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« SYMBOL TABLE 

SUBROUTINE SOLVER 
C THIS SUBROUTINE SOLVES THE GOVERNIG JOINT EQUILIBRIUM EQUATIONS FOR 
C THE DISPLACEMENTS OF THE FREE JOINTS 
C CALLED ONLY IF NFJS IS POS 
C STRESS III 

C S MAUCH NOV 15 63 (SOLVER AND BACKSU NOW ARE ONE SUBROUTINE) 
C REVISION DEC 31 63 TO NOT REDEFINE KOFDG(O) EVERY TIME THERE IS A NEW ARRAY 
DIMENSION Y(6,6) f T(6,6),Q{6,6),U{36),IU(36),SYPA<40),FILL{9) , 
1FIL(4),FILLH5) 

COMMON U, T, Q, CHECK, NM AX, I NORM, I SOLVE, I SCAN, I II I , IMOD , J JJ J, ICCNT, 
1ISUCC,SYPA,NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NL0S,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR,IS00G,N0SQ,N0J,IPB,IUPB,NBB,NFJSl,FILL,NLOSI,F 
3IL,NBNEW,FILL1,NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB, 
4LGADS, INPUT,KS,KMKST,KSTDB,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR,KMK, 
5KV,K33,LA2R ,LA2RT ,NSCR5,NSCR6,NSCR7,NSCR8,NSCR9 ,NSCR10,KDIAG,KOFD 
6G,IOF0G,LDNM,MEGA0,JEXT,JINr,IFDT ,KMEGA ,KPDBP, JTYP.MTYP1 , IOFC 
EQUIVALENCES I ),IU(1),Y(1)) 
3 III 1^2 
C DEFINE TRANSPOSE OF IOFDG = IOFC 

CALL OEFINEUOFCO, NFJS, 1,0,1) 

CALL ALOCAT(IOFCO) 

CALL ALOCAT(KDIAG,0) 

CALL ALOCATIKOFDG,0) 

CALL ALOCATUOFOG.O) 

CALL ALOCAT(KPPRI) 

203 DO 998 K=1,NFJS 
C 

C ELIMINATE KTH ROW 

C 

C LE IS CURRENT LENGTH OF COLUMN REPRESENTATION OF IOFDG COLUMN K 

LE=*0 

CALL ALOCAT(KDIAG,K) 

IAxKOIAG+K 

IV=IU( IA) 

C=0.0 

DO 200 JG=1,JF 

K1*72*(JQ-1)«JF 

DO 199 JW=1,JF 

LNK=K1+JW 

199 U(LNK)*0.0 
LKI=Kl*JQ 

200 U<LKI)*1.0 

204 JQ-JF 

CALL BUGER(JF,JQ,JQ,IV,72,C,36) 

GO TO <205,2,2>,JQ 
2 ISUCC=2 

CALL PRER2(8,K,JQ) 
C PRER2 PRINTS 'SING MATRIX OR OVERFLOW) 

GO TO 1004 
205 Kl-K+1 

IF CK-NFJS) 1099,1002,1002 
C1002 LAST SUBMATRIX INVERTED 
C 

C DETERMINE HOW MANY ELEMENTS ARE IN COLUMN K 
C 
1099 CALL ADRESS(0,K,LTT,3) 

CALL DEFINEUOFC,K,LTT, 0,0,1) 
C IF LTT ROW K DOES NOT HAVE ANY OFF DIAG ELEMENTS 

IF(LTT)198, 996,198 
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198 CALL ALOCAT(IOFC,K) 

N=Ki 
1100 CALL ADRESS(N,K,IANK,1) 
C ADRESS WILL RETURN WITH A NEW N 
C CHECK IF NO LEADING ELEMENTS BELOW IN COLUMN K 

IF(IANK)206,997,206 
C 206 RECORO THE IGFC INFORMATION 
206 LE =LE + 1 

JW=IOFC+K 

JW=IU(JW)+LE 

CALL PADPUUUW),0,N,IANK) 

CALL ALOCAT(KOFOGtlANK) 

CALL ALOCAT(KDIAGtN) 

LNK=KOFDG+IANK 

LNK=IU(LNK) 

IV~KDIAG*K 

IV=IUUV> 

CALL MAPRDT(0,LNK,IV,O,JF, JF,3> 

CALL RELEASCKQFDGt IANK) 
C RESULT IN Y=U(1).AMK*AKK(-1) 
C FIRST MODIFY DIAG ELEMENT IN N TH ROW 
790 LNN-KOIAG+N 
601 CALL MAPRDT(0,0,LNK,IU(LNN),-JF,JF,-4) 

CALL RELEAS(KDIAGtN) 
C PROD A(N,K)«(A(K,K)-i)«A{K,n 
C PRODUCT IS DIRECTLY SUBTRECTED FROM KDIAG(N) 

C CHECK IF LEADING ELEMENT JUST FOUND IS IN ROW Kl (OR IF NO OFF DIAG ELEMENTS 
C HAVE TO BE MODIFIED THEN LEE*0) 
6 LEE=LE-1 

IF(LEE)991, 991,901 
C 901 GO ACROSS ROWS N AND K TAKING LINEAR COMB 
C START OF I LOOP ACROSS ROW K 
901 DO 800 IM=1,L£E 

IND=IOFC+K 

IND=IU(IND)+IM 

CALL UPADPUU(IND),D,I,IAKI) 

CALL ADRESS(N,I,IANI,2) 
C ADRESS DETERNINES IF THERE IS A BIT FOR ELEMENT ( N,I) 
C IANI RETURN -0 IF NOT 

IFUANI)212,802,212 
C FOR 802 NEW KOFDG IS CREATEO 
C 802 MEANS THAT ATKA DOES NOT HAVE 
C THIS ELEMENT, BUT ATKA(-l) DOES 
802 NBB=NBB+1 

IANI=NBB 
C UPDATE IOFDG(N,I)=NBB 

IA=IOFDG+N 

IA=IU(IA)+1 

CALL UPADP(IU(IA),D,LCU,LDE) 

LCU=LCU+1 

IF(LDE-LCU>440,440,441 
440 LDE=XMIN0F(N-LCU+l,LE/2*2)+LDE 

CALL OEFINEC IOFDG,N,LDE, 0,1,1) 

IA=IOFDG+N 

IA=IU(IA)+i 
C UPDATE IOFDG(N) FOR NEW LENGTH 
441 CALL PADP(IUUA>,0,LCU,LDE) 

CALL RELEAS(IOFDG,N) 
C UPDATE ■ IGFDG(N) FOR NEW ELEMENT 

IA=IA+LCU 



353 



CALL PADP(IU(IA),0,I,NBB) 
C UPDATE IFDT FOR NEW ELEMENT I SMALLER THAN N 

CALL ADRESS<N, 1,0,0) 
C TEST WHETHER TO REDEFINE KOFDG(O) 
C NBNEW IS PRESENT LENGHT OF KCFDGTO) DEFINED 

IF (NBB-N6NEW) 449,449,448 
C REDEFINE KOFDG FOR NEW SUBMATRIX 

448 N8NEW=N8NEW+3+XMIN0F{30G,(NB«N8)/(NJ*4)) 
CALL DEFINE<KGFOG,0, NBNEW, 1,1,1) 

449 CALL DEFINE(K0FDG,N8B,NSQ, 0,0,1) 

212 CALL ALOCAT(KOFDG,IANI) 
CALL ALOCAT(KOFDG,IAKI) 
LKI=KGFDG-UAKI 
IA=K0FDG+IANI 

CALL MAPRDT(0,0,IU(LKI),IU(IA),-JF,JF,-4) 
C MULTIPLIES AND SUBTRACTS DIRECTLY 
C MODIFIED IAKI SUBTRACTED FROM IANI 
805 CALL RELEAS(KOFDG,IANI) 
CALL RELEASUOFDG, IAKI) 
800 CONTINUE 
C 

C NEXT REDUCE LOADS IN KTH ROW 
C 
991 DO 700 J=1,NLDSI 

KPPJ=KPPRI-M J-1)«NSTV 
ICK=KPPJ+JF*(K-1) 

213 ICN=KPPJ+JF*(N-1) 
C ADD DIRECTLY TO ICN 

CALL MAPRDT(0,0,ICK,ICN,-l,JF,-3) 
C 

C PUT REDUCED LOAO INTO ICN 
C 
700 CONTINUE 
999 CALL RELEASUOFDCN) 
1000 N=N+1 

IF (N-NFJS) 1100,1100,997 

997 CALL RELEASUOFCK) 

996 CALL RELEAS(IOFDG,K,C,0) 

998 CALL RELEAS(KDIAG,K) 
1002 CALL RELEAS(10FDG,0) 

CALL RELEAS(IFCT,0) 
C 

C NOW BACKSUBSTITUTION 

C1002 MULT. LAST DIAG. ELEMENT(-l) WITH LOADS 
C STORE JOINT DISPLACEMENTS IN KPPRI 
C 

DO 400 KK=1,NFJS 

K=NFJS-KK 

Kl=K+i 

CALL AL0CAT(KDIAG,K1) 
1 IF<KK-1)20,2G,21 
21 K2=*K+2 

CALL ALOCAT(IOFCKi) 

JW =I0FC*K1 
C NOTE IOFC DOES NOT HAVE A LEAO WORD WITH CURRENT AND DEFINED LENGTH 
C SO GET LENTGH FROM CODEWORD ADDRESS 

CALL UPAOP(IU< JW),D,LCU,LDE) 

IF(LDE)299,20,299 
299 JW=IU(JW) 

DO 300 IM*1.LDE 
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LE=JW*IM 

CALL UPADPUU(LE)tDtltlAKi) 
C I=ROW NUMBBER IN WICH KOFDG(IAKI) IS LOCATED I LARGER THAN Ki 

CALL ALOCATCKOFDGtlAKU 

LKI=KQFDG«-IAKI 
301 DO 310 J=1,NLDSI 

IA=KPPRI+(J-1)«NSTV 

ICI*IA + JF»U-1) 

ICK*IA+JF»K 
C 

C SUBTRACT PROD A(I,K1)«C(I) FROM C(K) 
C 

CALL MAPRDT(0,IU(LKI),lCI,ICK,-l,JF,-5) 
310 CONTINUE 

CALL RELEAS(KOFDG,IAKI) 
300 CONTINUE 

CALL RELEAS(IOFCtKl,OtO) 
C 

C FINAL MULT OF INVERSE DIAG SUBMATRIX WITH MODIFIED LOAD ALL LOAD CONDITION 
C 
20 DO 320 J=1,NLDSI 

ICK=KPPRI+(J-l)#NSTV*K»JF 

IA=KDIAG+K1 

IA'IUUA) 
C 

C REPLACE DISPLACEMENTS INTO KPPRI(K) 
C 

CALL MAPRDT(0,IA,iCK,lCK#l»JF,3) 
320 CONTINUE 

400 CALL RELEAS(KDIAG»K1) 
1003 CALL RELEAS(KPPRI) 

CALL RELEAS(KDIAG,0) 

CALL RELEAS(KOFDG,0) 

CALL RELEASdOFCOtO.O) 
1004 RETURN 

END 
* LIST8 
« LABEL 
» SYM80L TABLE 

SUBROUTINE MAPRDT{Ni,N2tN3,N4 f IZ , KF , INP ) 
C IF IZ IS NEG PRODUCT IS ADDED TO OR SUBTRACTED FROM CONTENTS OF N4 
C IF(INP) IS NEG. -PRODUCT IS PLACED INTO N4 NOTE N4 IS CLEARED FIRST 
C IF IZ IS POS > NOT OTHERWISE 
C TRIPLE OR DOUBLE PROD. OF U-ARRAYS 
C N1*N2«N3=N4 

C ARRAYS ARE STORED COLUMN WISE 
C N2 IS SQUARE 

C IS=COLUMN ORDER OF N3=R0W ORDER OF 
C TRIPLE PROD N2 IS NOT TRANSP IND=1 
C TRIPLE PROD N2 IS TRANSP IND = 2 
C DOUBLE PROD N2*N3 NOTHING TRANSP IND=3 
C DOUBLE PROD N2*N3 N3 IS TRANSP IND=4 
C IN THIS CASE N3 MUST BE JF»JF I.E. JF=IS 
C N2*N3 N2 IS TRANSP IND=5 

OIMENSION U(72),Q{36> 

COMMON UtQ 

JF = KF 

IS=XABSFUZ) 

IND*XABSF(INP) 

NSS=IS*JF 
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10 IF(IN0-3>1,2,2 
C 1 IS TRIPLE PROD 

1 DO 100 1=1, IS 
DO IOC K=1,IS 
NA4=(K-1)*IS+I 
C(NA4)=0.0 

DO 90 N=1,JF 
NA1=N1+(N-1)*IS*I 
DO 90 M=1,JF 
NA3=N3+(K-1)»JF+M 

11 IFUND-1)4,4,3 

4 IC = M 
IR=N 

GO TO 5 
3 ION 
IR = H 

5 NA2=N2*(IC-1)*JF*IR 

90 Q<NA4)=Q(NA4)+U(NAIMU<NA2)»U(NA3) 

100 CONTINUE 

GO TO 1000 
C 

C DOUBLE PRODUCT 
C 

2 IF(IND-4>6,6,7 
6 DO 200 N=1,JF 

DO 200 K=1,IS 

NA4= (K-1)«JF*N 

Q(NA4)=0.0 

DO 190 M=1,JF 

NA2=N2+(M-1)»JF+N 

12 IF(IN0-3)104, 104,103 

104 IC = K 
IR = H 

GO TO 105 
103 IC=H 
IR=K 

105 NA3=N3+UC-1)»JF*IR 

190 Q(NA4)=Q«NA4)*U(NA2)»U(NA3) 
200 CONTINUE 

GO TO 1000 
7 DO 300 N=1,JF 

DO 300 K=1,IS 

NA4= (K-1MJF+N 

Q{NA4)=0.0 

DO 290 M=1,JF 

NA3=N3+(K-1)*JF*M 

NA2*N2+(N-1>*JF+H 
290 Q(NA4)=Q(NA4)+U(NA2)«U(NA3) 
300 CONTINUE 

1000 IF(I2)200O, 1008, 1008 
1008 IFUNPU001, 1001, 1002 

1002 IF(N4-72)1005, 1004, 1005 

1001 C=-1.0 

GO TO 1006 

1005 C=1.0 

1006 DO 1003 J=1,NSS 
NA4=N4+J 

1003 U(NA4)=C*QU> 
GO TO 1004 

2000 IFUNPI2001, 2001,2002 
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2001 O-L0 

GO TO 2006 

2002 C=1.0 

2006 DO 2003 J=1,NSS 
NA4=N4+J 

2003 U(NA4)=U(NA4)+C»QU) 
1004 RETURN 

END 

* LIST8 

* LABEL 
CMAIN6/6 

DIMENSION Y(6,6),T(6,6),Q(6,6),U(36),IU(36),SYPA(40),FILL{6> 

COMMON U, T,Q, CHECK, NMAX,INORM, ISOLV, ISCAN, I I 1 1 , 1 MOD, ILINK, ICONT , 
11SUCC,SYPA,NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSTV 
2,NMEMV,IPSI,NMR,NJR, ISODG,NDSQ,NCJ , SDJ,NPR,NBB ,NFJS1 , J JC , JDC , 
3JMIC,JMPC,JLD,JEXTN,MEXrN,LEXTN,JLC,NLDSI,IYGUNG, I SHtR, IEXPAN, 
4I0ENS,FILL, 

5NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB, 

6L0ADS, INPUT,KS,KMKST,KSTDB,KATKA,KPPLS,KPMIN,KUV,KPPRI,KR,KMK, 
7KV f K33,LA2R ,LA2RT,NV ,NTP ,NSCR7,NSCR8,NSCR9 ,NSCR10,KDI AG ,KUFD 
8G,I0FDG,LDNM,MEGA0,JfcXT,JINT,KUDBP,KMEGA,KPDBP,JTYP,MTYPl,K8,ML0AD 
9,JLQAD,KATR,LEXT,KY0UNG,KSHER,KfcXPAN,KDENS 

EQUIVALENCE (U ( 1 > , IU ( 1 ) ,Y ( 1 ) ) 

CALL BAKSUB 

ISUCC=ISUCC 

GO TO (l»2ltISUCC 

1 ISOLV*ii 

2 CALL CHAIN(1,A4) 
END 

» LIST8 

• LABEL 

• SYMBOL TABLE 
SUBROUTINE BAKSUB 

C STRESS PROGRAM.. .STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C VERS III WITH COMBINATION LOADINGS 10/15 S MAUCH 

C USES AVECT TO BACKSUBSTITUTE AND 

C ANSOUT TO PRINT UNDER CONTROL OF IPRINT(JLD) 

01 MENS ION U<32),IU<32),Y(32),TC6,6),JUNK(13),V(12), 
1 SYSFIL(27),PRGFIL(6), KRAY(IO) 

COMMON U,IU,Y f JLI,JLX,JL0,L,T,K1,K2,KU,KPMIN,KPPL,KUPR,JT,JTEST, 
UUNK,KRR,KTEM,KSUPtV, 

4CHECK,NMAX,IN0RM,IS0LV, I SCAN, I 1 1 I , IMOD, J J J J, ICONT, ISUCC, IMERG, 
5T0P,N1,NL,NT,NREQ,TN,LFILE,TCLER,IPRG,IRST,IRL0, IRPR,SYSFIL, 
8NJ,NB,NDAT,ID f JF ,NSQ,NCORD, IMETH,NLDS,NF JS,NSTV,NMEMV , IPSI ,NMR , 
9NJR,IS0DG,NDSQ,NDJ, IPDBP, IUDBP,NBB ,NF JS1 , JJC , JDC , JMIC , JMPC , JLD 
COMMON JEXTN,MEXTN,LEXTN, JLCNLDSI, I YOUNG, ISHEAR , IEXPAN, IDENS, 
1 PROFIL, 

4NAME,KXY£ f KJREL,JPLS,JMIN,MTYP,KPSI,MEM8,L0ACS,MCDN,KS,KMKST,KSTD6 
5,KATKA,KPPLS,KPMNS,KUV,KPPRi,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6I0FDG,L0ADN,MEGAC, JEXT, J INT, IFDT ,KMEGA,KPDBP , JTYP, MTYP1 ,K8 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE (U,IU,Y) 
C 

10 IF (NJR) 30,30,20 
20 IF(NFJS)255,32,255 
32 CALL ALOCAT(KPDBP) 
C NO FREE JOINTS, SUPPORT DISPLACEMENTS IN KPDBP FROM FOMOD NOJ»NLDSI 
GO TO 40 
255 CALL DEFSUP 
GO TO 40 
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30 CALL DEFINE(KPDBP,NDJ, 0,0,1) 
C NO JOINT RELEASES, KPOBP IS ZERO VECTOR NOJ IN LENGTH - THIS IS THE FIRST 
C DEFINITION OF KPOBP IF NJR=C 

CALL ALOCAT(KPDBP) 

CALL CLEARCKPDBP) 
40 CALL ALOCAT<NAME) 

CALL RELEASCKDIAG, 0,0,0) 

CALL RELEAS(KOFDG, 0,0,0) 

CALL RELEASdOFOG, 0,0,0) 

CALL RELEASUFDT, 0,0,0) 

IF CIPSI) 14,15,14 

14 CALL ALOCAT(KPSI) 

15 CALL ALOCAT(KS) 
CALL ALOCAT(KPPRI) 
CALL ALOCATCKMKST,0) 
CALL ALQCAT(LOADS,0) 
CALL ALOCAT(KUV,0) 
CALL ALOCAT(KPPLS,0) 
CALL ALOCAT(KPMNS,0) 
CALL ALOCAT(JPLS) 
CALL ALOCAT(JMIN) 
CALL ALOCAT(LEXT) 
CALL ALOCAT(JINT) 
CALL ALOCAT(MTYP) 
IF(M0DN)16,13,16 

16 CALL ALOCAT(MODN) 
13 CALL OEFINE(KR,0, NLDS, 1,0,1) 
CALL ALOCAT(KR,0) 
C KR CONTAINS THE STATICS CHECKS FOR LOAO CONDITIONS 

C IF JLI=0, LOAD CONDITION IS DEPENDATN. ALL CONDITIONS ON WHICH IT 
C DEPEND HAVE A SMALLER EXTERNAL NUMBER JLX.I.E. THEY HAVE 8EEN 
C PROCESSED BY BAKSUB. 
100 DO 200 JLX=1,LEXTN 

CALL ALOCAT(LOADS,JLX) 
K1=L0ADS+JLX 
JL0-IU(K1)+1 

CALL UPACW(U(JL0),K1,JUNK{2),JUNK(3),JUNK(4) ,JT) 
1775 IF(K1-1)200,18,18 
C IF JLI-NLOSI IS POS WE HAVE A DEPENDANT LOADING COND. 

18 JLI=LEXT+JLX 
JLI=IU(JLI) 

C JLI IS NOW INTERNAL LOADING NUMBER 
C ZERO THE KR MATRIX 

19 CALL DEFINEUR, JLI, NJ»JF, 0,0,1) 
CALL ALOCAT(KR,JLI) 

CALL ALOCAT(KUV,JLI) 

CALL ALOCAT(KPPLS,JLI> 

CALL ALOCAT(KPMNS,JLI) 

Kl=KR*JLI 

CALL CLEARt IU(KD) 

JSA=NL0SI*1-JLI 

IF<JSA)52,52,51 
52 CALL COMBLD 

GO TO 99 
51 CALL NEWADR 

IF(NFJS)39,38,39 

38 IF(NJR)39, 101,39 

C DCNT GO TO AVECT ONLY IF NO FREE JOINTS AND NO SUPPORT RELEASES 
C THEN MEMBER FORCES ARE FIXED END FORCES 

39 DO 503 L=1,MEXTN 
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Kl=MTYP+L 




IF<U{Kin37,503,37 


c 


CHECK FOR DELETED MEMBERS 


37 


K2=LFILE 




CALL 


ALOCAT(KMKST,L) 


31 


IF(K2-LFILE)4i,33,41 


41 


CALL 


NEWADR 


33 


CALL 


AVECT 


503 


CALL 


RELEAS(KMKST,L) 


101 


CALL 


STATCK 


C 


RESTORE JLO 


99 


K1=L0ADS*JLX 




JL0=1 


[UIKDU 




JTEST=8 


C 1 = 1 


FORCES 2=DIST0RTI0NS 3=0 


103 


DO 110 J = 1,4 




IF(JT-JTEST) 109,105,105 


105 


Kl = 


NAME+1 




K2 = 


NAME+12 




PRINT 300,{U(IJ,I=K1,K2) 


787 


IF(M0DN)106, 107,106 


106 


Ki = 


MODN+l 




K2 = 


M0DN+12 




PRINT 302t(UCI)t I-K1»K2I 


107 


Kl * 


JLO+2 




K2=JL0+13 




PRINT 302 ,(UU),I=K1,K2) 


108 


CALL 


ANS0UT(J,0,1) 




JT = 


JT-JTEST 


109 


JTEST = JTEST/2 


110 


CONTINUE 




CALL 


RELEAS{KR,JLI) 




CALL 


RELEAS(KUV,JLI) 




CALL 


RELEAS(KPPLS,JLI) 




CALL 


RELEASCKPMNS, JLI) 


190 


CALL 


RELEAS(L0ADS,JLX> 


200 


CONTINUE 




CALL 


RELEAS(MOON) 




CALL 


RELEAS(KR,0) 




CALL 


RELEAS(LOADS,0) 




CALL 


RELEAS(KUV,0) 




CALL 


RELEAS(KPPLS,0) 




CALL 


RELEAS(KPMNS,0) 




CALL 


RELEASUPLS* 




CALL 


RELEASUMIN) 




CALL 


RELEAS(NAME) 




CALL 


RELEAS(JINT) 




CALL 


RELEAS(MTYP) 




CALL 


RELEASILEXT) 




CALL 


RELEASUPCBP) 




CALL 


RELEAS(KATKA) 




CALL 


RELEAS(KPPRI) 




CALL 


RELEAS(KMKST,0) 




CALL 


RELEASCKS) 




CALL 


RELEAS(KPSI) 




RETURN 


300 


FORMAT (IH1,3X,12A6> 


302 


F0RMATC1H0,3X,12A6> 




END 




* 


LIST8 



3=DISPLACEMENTS 4=REACTI0NS 
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« SYMBOL TABLE 
• LABEL 
CAVECT 

SUBROUTINE AVECT 
C DOES BACKSUBSTITUTION USING THE INCIOENCE TABEL (A) 
C KENNETH F. REINSCHMIDT, ROOM 1-255, EXT. 2117 
C STRESS.. .STRUCTURAL ENGINEERING SYSTEM SOLVER 
C VERSION III. ..23 AUGUST 1963 

DIMENSION U(32),IU(32),Y{32> ,T<6,6), V(6),W(6), 
1 SYSFIL(27) ,PR0FIL(6), KRAYUO) 

COMMON U,IU,Y,JLI,JLX, JLG, L, T, Kl ,K2,KU,KPMIN ,KPPL, KUPR, JT, JTEST, 
1LMS,LPS,J, 

UPS,JMS,LS,JL,JJ,K3,K4,K5,K6,K7,KRR,KTEM,KSUP,V,fc, 
4CHECK,NMAX, INORM, I SOLV, ISCAN , I 1 1 1 , I MOD, J J J J, ICONT, ISUCC, IMERG , 
5TOP,N1,NL,NT,NREQ,TN,LF1LE,TOLER,IPRG,IRST,IRLD, IRPR,SYSFIL, 
8NJ,NB,NDAT,ID,JF,NSQ,NCaRD,IMETH,NLDS,NFJS,NSTV,NMEMV,IP$I,NMR, 
9NJR,IS0DG,NDSQ,N0J,IPDBP,IUDBP,N8B,NFJS1,JJC,JDC,JMIC,JMPC,JLD 
COMMON JEXTN,MEXTN,LEXTN,JLC,NLDSI,IYOUNG,ISHEAR,IEXPAN,IDENS, 
1 PROFIL, 

4NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ADS,M0DN,KS,KMKST,K$TDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPR£,KR,K$AVE,KRAY,KDIAG,KOFDG, 
6 I0FDG,LOADN,MEGA0,JEXT,JINT,KUDBP,KMEGA,KPD8P,JTYP,MTYPi,K8 
7,MLOAD,JLGAD,KATR,LEXT,KYOUNG,KSHEAR,K£XPAN,KDEN$ 
EQUIVALENCE <U,IU,Y> 
30 LPS = JPLS+L 
LMS = JMIN+L 
LPS = IUCLPSHJINT 
LMS = IU(LMS) + JINT 
LPS = IU(LPS) 
LMS = IU(LMS) 
JPS = JF«(LPS-1> 
JMS = JF*UM$-1) 
LS = JFML-1) 
IF (LPS-NFJS) 50,50,55 
C PLUS NODE IS A FREE JOINT 
50 Kl * KUPR+JPS 
GO TO 60 
C PLUS NODE IS IN THE DATUM 
55 Kl = KSUP+JPS-NSTV 
60 IF (LMS-NFJS) 65,65,70 
C MINUS NODE IS FREE 
65 K2 = KUPR+JMS 
GO TO 75 
C MINUS NODE IS FIXED 
70 K2 = KSUP+JMS-NSTV 
75 K5 = KU+LS 
C GET TRANSLATION MATRIX, MINUS NODE TO PLUS NODE, IN GLOBAL 
C COORDINATES 

CALL TRAMAT(L.l) 
C TRANSLATE THE PLUS END JOINT DISPLACEMENTS 
DO 100 I = 1,JF 
K3 - K2+I 
C LOAD IN MINUS END DEFLECTION 
VU> =-U(K3) 
DO 100 J = 1,JF 
K4 = KUJ 
C SUBTRACT TRANSLATED PLUS END DEFLECTION 
C TRANSPOSE TRANSLATION MATRIX FOR DISPLACEMENTS 
VU) = V(I) + T(Jf I)*U(K4) 
100 CONTINUE 
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C GET ROTATION MATRIX, GLOBAL COORDINATES TO LOCAL 

CALL TRAMATU,2) 
C ROTATE MEMBER DISTORTION INTO MEMBER COORDINATES 

DO 200 I = 1,JF 

WCI) = 0.0 

Kl = K5+I 

DO 150 J = 1,JF 

W € I » = W(I) + TCI,J)*VU) 
150 CONTINUE 
C ADD TO EMB DIST POOL WITH DIFFERENCE IN JOINT DISPLACEMENTS 

U(K1) = UCKD+Wtl) 
200 CONTINUE 
C NOW MULTIPLY BY STIFFNESS FOR FORCES 

K2 = KPMIN ♦ LS 

CO 300 I = 1,JF 

VU) = 0.0 

DO 250 J = 1,JF 

K1=KMKST+L 

K1=IU(K1)+(J -1MJF + I 

VII) = U(K1)«W(J) ♦ V(I) 
250 CONTINUE 
C ADD FORCES TO P MINUS POOL 

K3 » K2+I 

U(K3) = U(K3)'+VCI) 
300 CONTINUE 
C FIND MEMBER LENGTH 

Ki = KS+(L-1)*(NC0RD+1>+1 
C TRANSLATE ALONG MEMBER TO PLUS(LEFT) END 

GO TO {400, 320, 330, 400, 340), ID 
C PLANE FRAME 

320 V(3) = VC3)+UCK1)»VC2) 

GO TO 400 
C PLANE GRID 

330 V<3> = VC3)-U(K1)«V(1) 

GO TO 400 
C SPACE FRAME 

340 V(5) = V(5)-U(Kl)»V(3) 

V(6) - V(6)+U(K1)*V(2> 
C ADD TO P PLUS PCCL 
400 K2 - KPPL+LS 

DO 450 I = 1,JF 

K3 =* K2+I 

U(K3) » U(K3)+V(I) 
450 CONTINUE 

RETURN 

END 

* LIST8 
« LABEL 

* SYMBOL TABLE 
SUBROUTINE COMBLD 

C SUBROUTINE COMBLD S.MAUCH 11 OCTOBER 1963 

C THIS SUBROUTINE COMPUTES THE OUTPUT FOR A COMBINATION LOADING AND 
C STORES IT IN NLDSI+1 ST ARRAYS OF KPPLS,KPMNS,KUV,KR 
DIMENSION U(22>, IU(22),Y(22 ) , T( 6,6 ) , V( 5 ) ,SPAC(2 ) , 
1SYSFIL(27),PR0FIL(6),KRAY(10) 

COMMON U,IU,Y,J10,J9,K10,K9,NK,NKPRI,NKPDP,NLSX,NBX,NBTJ, 
1JLI,JLX,JL0,L,T,SPAC,KU,KPMIN,KPPL,KUPR,JT,JTEST,KSA,NLSS,NBT,NLS, 
2F AC, K1,K2,K3,K4,K5,N2,N3,N4,KRR,N5,KSUP,L3,L4,L5,M2,M3,M4,M5,V, 
4CHECK,NMAX,IN0RM,IS0LV,ISCAN,IIM,IM0D,JJJJ,1C0NT,ISUCC,IMERG, 
5T0P,Ni,NL,NT,NREQ,TN,LFILE,TCLER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
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8 NJ,NB,NDAT,ID,JF,NSQ,NCORD,IMETH f NLDS»NFJS,NSTV,NMEMV,IPSI,NMR, 
9NJR,IS0DG,NDSQ,NDJtIP0BP,IUDBP,NBB,NFJSl,JJC,JDC,JMIC,JMPC f JLD 
COMMON JEXTN,MEXTN,LEXTN,JLC,NLDSI,IYOUNG,ISHEAR,IEXPAN,IDENS, 
iPROFIL, 

4NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ACS,MGDN,KS,KMKST f KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,KOFDG, 
6I0FDG,L0ADN,MEGA0, JEXT, JINT ,KUDBP,KMtGA,KPDBP, JTYP, MTYP1,KB 
7 f MLGAD,JL0AD,KATR,LEXT,KYOUNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE(UtlU,Y) 
N6TJ=NJ*JF 
CALL NEWADR 
C 

C CLEAR COMBINATION ARRAYS 
C 

CALL CLEAR(KPMIN) 
CALL CLEAR(KPPL) 
CALL CLEAR(KU) 
C 

C CLEAR LAST •SUBARRAY 1 OF KPPRI AND KPDBP 
C 

DO 1 J=l,NSTV 
K1=KUPR+J 

1 U(Ki)*0.0 

DO 2 J=1,NDJ 
K1=KSUP+J 

2 U(K1)=0.0 
Kl^LOADS+JLX 
K1=IU(K1)+1 

CALL UPADP{U<K1),K2,NLS,K2) 
C NLS= NUMBER OF INDEPENDANT LOADINGS INVOLVED 

DO 10 1=1, NLS 

K1=LQADS+JLX 

K1=IU(K1)+13+2*I 

FAC=U(K1+1) 

K11=IU(K1> 
C Kll 1 IS NOW EXTERNAL LOAD NUMBER FOR THE I TH INDEPENDANT LOAD CONDITION 
C IN THE LIST FOR THE CURRENT DEPENDANT CONDITION - CONVERT TO INTERNAL 

K1=LEXT+K11 
801 K1=IU(K1) 

IF(K1)10«10 9 3 

3 CALL AL0CAT(KPMNS,K1) 
CALL AL0CAT(KPPLS,K1) 
CALL AL0CAT(KUV,K1) 
CALL AL0CAT(KR,K1) 
K2=KPMNS+K1 
K3=KPPLS*Ki 
K4=KUV+K1 

K5=KR+K1 
CALL NEWADR 
C DO NOT TEST FOR DELETED MEMBERS 
DO 20 J=1,NMEMV 
L2MU(K2) + J 
L3=IU(K3)+J 
L4=IU(K4)+J 
M2=KPMIN+J 
M3=KPPL+J 
M4=KU+J 

U(M2)=U(M2)+FAC*U(L2) 

U(M3)=U(M3)+FAC*U(L3) 

20 U(M4)=U(M4)+FAC»UU4> 
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DO 30 J=1,N81J 

L5=IU(K5)+J 

M5=KRR+J 
30 U(M5)=U(M5)+FAC «UU5> 
C DC COBINATION OF FREE AND SUPPORTS DISPLACEMENTS C IN KPPRI AND KPDBP) 
C NOTE KPPRI AND KPDBP ARE FORST LEVEL ARRAYS (SHOULD BE MADE SECOND LEVEL TOO) 
C 

NKPRI=KPPRI+(K1-1)*NSTV 

DO 70 J=1,NSTV 

NK=NKPRI+J 

K10=KUPR+J 
70 U(K10)=U(K10)+FAC*U(NK) 

IF(NJRr71,72,71 
71 NKPDP=KPDBP-MKI-1MN0J 

DO 80 J=1,NDJ 

NK*NKPDP+J 

J10=KSUP*J 
80 U(J10)=U(J10)+FAC»U(NK) 
12 CALL RELEAS(KPMNS,K1) 

CALL R£LEAS<KPPLS,Ki> 

CALL RELEAStKUVtKl) 

CALL RELEAS(KR,K1) 
10 CONTINUE 
40 RETURN 

END 

* LIST8 

* LABEL 

« SYMBOL TABLE 

SUBROUTINE DEFSUP 
C STRESS.. .STRUCTURAL ENGINEERING SYSTEM SOLVER 
C VERSION II... 29 JULY 1963 

C KENNETH F. REINSCHMIDT, ROOM 1-255, EXT. 2117 
C 

C COMPUTES THE DEFLECTIONS OF THE SUPPORT JOINTS, IF THEY EXIST 
C PRODUCT MEGA0*A//TKA*KPPRI 
C SUBSCRIPTS (L,I)*{I,J)«U> 
C 

DIMENSION UC36)tIU(36)ffY(6f6)«T(6,6)tJUNK(li) 9 VC12)t 
1 SYSFIL(27),PRCFIL<6) f KRAYUO) 

COMMON U,IU f Y,T f Kl f K2 f K3 f K4,K5 f K6 f K7,K8,K9,IST0P,INDAT,JUNK, 
1 KTEM,KSUP,V, 

4CHECK,NMAX,IN0RM,ISGLV,ISCAN,IIII,IM0D,JJJJ, ICONT, ISUCC, IMERG, 
5T0P,N1,NL,NT,NREQ,TN,LFIL£,TGLER,IPRG,IRST,IRLD,IRPR,SYSFIL, 
8NJ,NB,NDAT,ID, JF ,NSQ,NCORD, IMETH,NLDS,NF JS,NSTV, NMEMV, IPSI ,NMR , 
9NJR,IS0DG,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJS1,JJC,JDC,JMIC,JMPC,JLD 
COMMON JEXTN f MEXTN,LEXTN,JLC,NLDSI,IYQUNG, ISHEAR , IEXPAN, IDENS, 
1 PROFIL, 

4NAME,KXYZ,KJREL, JPLS , JMIN,MTYP ,KPS I ,MEMB ,LGACS ,MODN, KS.KMKST ,KSTDB 
5,KATKA,KPPLS,KPMNS,KUVtKPPRI,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6I0FDG,L0ADN,M£GA0, JEXT,JINT, IFDT,KMEGA, KPDBP , JTYP, MTYP1 , IOFC 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
EQUIVALENCE (U,IU,Y> 
CALL ALOCATtKPDBP) 
CALL ALOCAT(IOFDG,0) 

2 I=NFJS1 

3 II=I-NFJS 

C CHECK IF MEGAO(II) IS NOT ALL ZERO 

K6=MEGA0+II 

IF{ IU(K6) >4,602,4 
C TEST IF IOFDG(I) CONTAINS ANY ELEMENTS 
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4 CALL AL0CAT(I0FDG,I> 

K6-I0FD6+I 

K6=iUCK6)+l 

CALL UPADP(IU<K6),D,LCU,LDE) 

IF(LCU)5,601,5 
5 CALL ALOCAT{M£GAO,II) 

DO 600 JM=l,LCU 

K6=I0FDG+I 

K6=IU(K6)+1+JM 

CALL UPADP(IU(K6),D,J,K1) 

IF(J-NFJS)6,6,600 
6 CALL AL0CAT(K0F0G,K1) 
C J= COLUMN ORDER OF KCFDG(Kl) 

K2=K0FDG+K1 

K2=IU(K2> 

K6=MEGA0*II 
100 DO 500 K=1,NLDSI 

K3 = KPDBP+(K-1)*NDJ 

K4=KPPRI+(K-1)«NSTV+{J-1)»JF 

DO 500 L = 1,N0J 

K5 = K3+L 

DO 500 M = l,JF 

K7=IU<K6)+(M-1)*NDJ+L 

DO 500 N = 1,JF 

K8 = K2+(N-1)*JF+M 

K9 = K4+N 

U(K5) = U(K5)-U{K7)*U(K8)*U(K9) 
500 CONTINUE 

580 CALL RELEAS<KOFDG,Ki) 
600 CONTINUE 
601 CALL RELEAS(MEGAO,II,0,0) 

602 CALL RELEASUOFDG, 1,0,0) 
1 = 1 + 1 

IFU-NJ>3, 3,603 

603 CALL RELEASUOFDG, 0,0,0) 
CALL RELEASUOFDG, 0,0,0) 
CALL RELEASCMEGAG, 0,0,0) 
RETURN 

END 

* LIST8 

* LABEL 

* SYMBOL TABLE 
SUBROUTINE NEWADR 

C STRESS PROGRAM. •.STRUCTURAL ENGINEERING SYSTEMS SOLVER 

C VERS III WITH COMBINATION LOADINGS 10/15 S MAUCH 

C CALLED BY BAKSU8 

DIMENSION U(32),IU(32),Y(32),n6,6),JUNKU3),V<12), 
1 SYSFIL(27),PR0FIL(6), KRAY(IO) 

COMMON U,IU,Y,JLI,JLX,JL0,L,T,K1,K2,KU,KPMIN,KPPL,KUPR,JT, JTEST, 
1JUNK,KRR,KTEM,KSUP,V, 

4CHECK,NMAX,INORM,IS0LV, ISCAN, 1 1 1 I , IMOD, J JJ J , ICONT, ISUCC, IMERG , 
5TOP,Nl,NL,NT,NREQ,TN,LFlL6,rOLER,IPRG,IRST,IRLD, IRPR,SYSFIL, 
8NJ,NB,NDAT,ID,JF,NSQ,NC0RD,IMETH,NLDS,NFJS,NSrV,NMEMV,IPSI,NMR, 
9NJR,IS0DG,NDSQ,NDJ,IPD8P,IUDeP,NBB,NFJSi,JJC,JDC,JMIC,JMPC,JL0 
COMMON JEXTN,MEXTN,LEXTN,JLC,NLOSI,IYOUNG,ISH£AR,IEXPAN, I DENS, 
1 PROFIL, 

4NAME,KXYZ,KJREL, JPLS , JM IN ,MTYP ,KPS I ,MEMB ,LOADS ,MCDN, KS ,KMKST , KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6 IOFDG,LOADN,MEGAO,JEXT,JINr,KU0BP,KMEGA,KPDBP,JTYP,MTYPi,KB 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 
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EQUIVALENCE (U,IU,Y) 
50 K1=KR+JLI 
C CONVERT TO INTERNAL LOADING NUMBERS 
C KRR= U ADDRESS OF JLI TH KR ARRAY 
KRR » IU(Kl) 
Kl = KUV+JLI 
KU = IU(K1) 
Kl « KPPLS+JLI 
KPPL = IU(Kl) 
Kl = KPMNS+JLI 
KPMIN = IU(K1> 
GO TO (4,2), IIII 
2 KTEM = KPPRI 

GO TO 60 
4 KTEM = KATKA 
60 KUPR = KTEM + NSTVMJLI-1) 
IF (NJR) 90,90,80 
C SUPPORT DISPLACEMENTS 
80 KSUP=KPDBP*(JLI-1)*NDJ 

GO TO 102 
C NO SUPPORT DISPLACEMENTS. ..USE KPDBP AS ZERO VECTOR 
90 KSUP = KPDBP 
102 RETURN 
END 

♦ LABEL 

« SYMBOL TABLE 

* LIST8 
SUBROUTINE STATCK 

C DOES A STATICS CHECK BY BACK COMPUTING THE SUPPORT REACTIONS 

C ANO THE APPLIED JOINT LOADS 

C KENNETH F. REINSCHMIDT, ROOM 1-255, EXT. 2117 

C STRESS.. .STRUCTURAL ENGINEERING SYSTEM SOLVER 

C VERSION III. ..23 AUGUST 1963 

DIMENSION U(32),IU(32),Y(32) ,T(6,6), V(6),W(6), 
1 SYSFIL(27),PR0FIL(6), KRAY(IO) 

COMMON U, IUt Y, JL I, JLX, JL0,L, T,K1 ,K2,KU, KPMIN, KPPL, KUPR, JT,JTEST, 
1LMS,LPS,LLS, 

1 JPS,JMS,LS,JL,JJ,K3,K4,K5,K6,K7,KRR,KTEM,KSUP,V,W, 
4CHECK,NMAX,IN0RM,IS0LV,ISCAN,IIII,IM0D,JJJJ,IC0NT,ISUCC,IMERG, 
5T0P,N1,NL,NT,NREQ,TN,LFILE,T0LER,IPRG,IRST,IRL0,IRPR,SYSFIL, 
8NJ,NB,N0AT,ID,JF,NSQ,NCQRD,IMETH,NLDS,NFJS,NSTV,NMEMV,IPSI,NMR, 
9NJR,iSQDG,NDSQ,NDJ,IPDBP,IUDBP,NBB,NFJSl,JJC,JDC,JMIC,JMPC,JLD 

COMMON JEXTN,MEXTN,LEXTN,JLC,NLDSI,IYOUNG,ISHEAR,IEXPAN,IDENS, 
1 PROFIL, 

4NAME,KXYZ,KJREL,JPLS,JMIN,MTYP,KPSI,MEMB,L0ADS,M0DN,KS,KMKST,KSTDB 
5,KATKA,KPPLS,KPMNS,KUV,KPPRI,KR,KSAVE,KRAY,KDIAG,K0FDG, 
6 I0FDG,L0ADN,MEGA0,JEXT,JINT,KUDBP,KMEGA,KPD8P,JTYP,MTYP1,KB 
7,ML0AD,JL0AD,KATR,LEXT,KY0UNG,KSHEAR,KEXPAN,KDENS 

EQUIVALENCE (U,IU,Y) 

DO 300 L = i,MEXTN 

K1=MTYP+L 

IF { U(K1) ) 60,300,60 
60 LPS = JPLS+L 

LMS « JMIN+L 

LPS * IU(LPS)+JINT 

LMS = IU(LMS)+JINT 

JPS = JF»(IU(LPS)-l) 

JMS = JF*(IU(LMS)-1) 

LS = JF*<L-1) 

Kl » KPPL+LS 
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K2 = KPMIN+LS 

K3 » KRR ♦ JPS 

K4 = KRR ♦ JMS 

GET FORCE ROTATION MATRIX, GLOBAL TO LOCAL 

CALL TRAMAT(L,2> 

DO 200 I = i,JF 

K6 * K3+I 

ROTATE MEMBER ENO FORCES INTO GLOBAL COORDINATES 

DO 100 J = ltJF 

K5 * Kl+J 

UCK6) * U(K6)*T(J,I)«U{K5) 
100 CONTINUE 

K6 = K4+I 

DO 150 J = 1,JF 

K5 = K2+J 

U(K6> = U(K6)-T(J,I)«U{K5) 
150 CONTINUE 
200 CONTINUE 
300 CONTINUE 

RETURN 

END 
FAP 

COUNT 200 
SST 

32K 709/7090 FORTRAN LIBRARY 9CHN 
32K 709/7090 FORTRAN LIBRARY MIT VERSION. M 
TTL MONITOR CHAIN ROUTINE / 9CHN FOR STRESS 
ALL CARDS SEQUENCE NUMBERED WITH MI ARE ONLY FO 
ALL CARDS SEQUENCE NUMBERED WITH STRES ARE FOR 
LBL STRCHN 

MAY 16 1963 REVISED FOR TSS BACKGROUND 
AUG 22 1963 * REVISED FOR 7C94 
NOV 20 1963 • REVISED FOR STRESS III 
BCORE 



FOR STATICS CHECK 



ENTRY 


CHAIN 


CHAIN LTM 




EMTM 




ENB 


=0400000 


CAL 


lt4 


STP 


MADSW. 


SXA 


• ♦2,4 


XEC» 


$(TES> 


AXT 


••,4 


CLA» 


lt4 


ZET 


MADSW. 


ALS 


18 


STD 


CHWRD 


CLA» 


2,4 


ZET 


MADSW. 


ALS 


18 


PDX 


,1 


PDX 


»2 


AXT 


(CLKL),4 


SXA 


tCTRP),4 


PXA 


0,1 


PAX 


0,2 


AXT 


1154,4 


SXA 


XA3+1,4 


TXL 


CHA,l,i 


TXH 


CHA,i,3 



7C94 
DISABLE EVERY TRAP BUT CLOCK 7094 



TAPE NO. TO IR A,B 



2202 (B2) 
SET ERROR 
LEAVE FOR 
CHANNEL A 



CHAI0010 

CHAIG020 

CHAIC030 

ARCH 28,1962 MICHAI0040 

III PROCESSOR CHAI0050 

R MIT MONITOR 

STRESS PROCESSOR 

STRESCHAI0060 

MICHA10070 

MICHAIC071 

STRESCHAI0072 

MICHAI0075 

CHAI0080 

CHAIC090 

MICHAIG092 

MICHAI0094 

***MITCHAI01C0 

***MITCHAIC110 

CHAI0120 

CHAI0130 

CHAI0140 

CHAI0150 

***MITCHAIC160 

••♦MITCHAI0170 

CHAI0180 

CHAI0190 

***MITCHAI0200 

••♦MITCHAI0210 

CHAI0220 

CHAI0230 

*»«MITCHAIC270 

•«*MITCHAI0280 

•♦♦MITCHAI0290 

*»*MITCHAI0300 

CHAIG310 

CHAI0320 

CHAI0330 

CHAIG340 
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CHB 



CHAA 



CHA 



CHAB 



CHC 



SXA 


CHWROtl 




CHAI0350 


TXH 


CHAA, 1,2 




CHAI0360 


PXO 


,1 


HERE FOR B2/B3 


MICHAI0370 


ALS 


1 




MICHAIG372 


PDX 


tl 




MICHAI0374 


PXO 


,2 




MICHAIQ376 


ALS 


10 




CHAIC380 


ORS 


XCI+18,1 


SET FOR 2/3 


MICHAI0390 


ALS 


1 




CHAIQ4G0 


ORS 


XCI+14 


SET B 


MICHAIG410 


TRA 


#♦4 




CHAI0420 


TXI 


♦+i,4,l 


SET FOR B3 


CHAI0430 


SXA 


XA3+1,4 


AND GO SET 


CHAI0440 


TXI 


CHB, 2,-1 


ERRORS 


CHA10450 


CAL 


CHB 


PREFIX OF 4 


CHAI0460 


LDQ 


TCOB 




CHAIG470 


TRA 


CHAB 




CHAI0480 


TXI 


♦+1,4,-62 


SET FOR 


CHAIG490 


SXA 


XA3+1,4 


A4 


CHAI0500 


TXI 


♦+1,4,-448 


IRC = 1204 OCTAL 


CHAI0510 


AXT 


4,2 




CHAI0520 


SXA 


CHWRD,2 




CHAI0530 


AXT 


2048,2 




CHAI0540 


PXD 


0,2 




CHAIG550 


ORS 


XCI+10 


SET 4L 


MICHAI0560 


ALS 


1 




CHAI0570 


ORS 


XCI+16 


SET A 


MICHAI0580 


CLM 






CHAI0590 


LDQ 


XXA 


TCOA 


CHAI06G0 


SXA 


CHD,4 


AC=PREFIX +0R-,MQ=TC0 


AC=22Q2, 2203, 1204 BSCHAIG610 


SXA 


XLA,4 


BSR 


CHAI0620 


SXA 


CHE+3,4 


REW 


CHAIG630 


TXI 


♦+1,4,16 


SET IRC FOR BIN 


CHAIG640 


SLQ 


CHC+2 




HICHAI0645 


SXA 


CHC+3,4 


RTB 


HICHAIC650 


STP 


CHC + 4 


RCH 


*UCHAI0660 


SLC 


CHC + 5 


TCO 


MICHAIG670 


STP 


CHC+6 


TRC 


MICHAIG680 


STP 


CHC+7 


TEF 


MICHAIQ690 


SXA 


XLC4 


RTB 


CHAIG700 


STP 


XLC + 1 


RCH 


CHAIG710 


SLQ 


XLD 


TCO 


CHAI0720 


STP 


XLD + 1 


TRC 


CHAIC730 


STP 


XLD + 2 


SCH 


CHA 1 740 


STP 


CHC-1 


TEF 


CHAIG750 


AXT 


XLIGJ-XLA+1,1 


HOVE 


CHAI0760 


AXT 


0,2 


LOADER TO UPPER 


CHAI0770 


CLA 


XLA,2 




CHAIG780 


STO 


.XLA,2 




CHAIG790 


TXI 


♦+1,2,-1 




CHAI08C0 


TIX 


♦-3,1,1 




CHAIC810 


TEFA 


♦ + 1 




CHAI0820 


AXT 


5,1 




CHAI0830 


CLA 


CHWRD 




CHAI0840 


TCOB 


* 




.MI CHA I 0845 


RDS 


• • 


2 


CHAIG850 


RCNB 


CHSEL1 


3 


CHAI0860 


TCOB 


• 


4 


CHAI0870 


TRCB 


CHD 


5 


CHAI0880 


TEFB 


CHE 


6 


CHA10890 
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LXA 


LBL, 2 




TXH 


•♦2,2,4 




TXH 


•+3,2,1 




AXT 


4,2 




SXA 


LBL, 2 




SUB 


LBL 




TNZ 


CHC 




CLA 


LKRCW 




STO 


• XLZ 




STA 


.XL(O) 




CAL 


PROG 




ERA 


XGO 




POX 


,1 




TXH 


•XXA, 1,0 




TZE 


• XXA 




CLA 


PROG 




STO 


• XGO 




LXO 


•XLZ,1 




PXA 


,1 




ADO 


= 100 




STO 


TEMP 




ZET 


I NORM 




TRA 


*+5 




SUB 


NL 




TMI 


• ♦3 




STO 


NREQ 




TSX 


$R£0RG,4 




CLA 


TEMP 




STO 


NT 




AXT 


5,1 




TRA 


• XLC 


TEMP 


PZE 




CHD 


8SRB 


*• 




TIX 


CHC+1,1,1 




TRA 


• XXA 


CHE 


NZT 


CHAIN 




TRA 


NGD 




STZ 


CHAIN 




REWA 


»• 




TRA 


CHC 


NGD 


LXA 


XA3+1,1 




SXO 


COMl+3,1 




TCOA 


• 




WTDA 


PRTAPE 




RCHA 


CHSEL2 




TRA* 


$EXIT 


CHWRD 


PZE 




TCOB 


TCOB 


* 


CHSEL1 


IORT 


LBL, ,3 


LBL 






LKRCW 






PROG 






CHSEL2 


IORT 


C0M1,,7 


COM1 


BCI 
REM 


7,1 LINK 


XLA 


BSRA 
IOT 

NOP 


»* 




TIX 


•XLC, 1,1 


XXA 


TCOA 


• XXA 



ANY TAPE EXCEPT 2 OR 3 MAKE 4 

IS THIS THE CORRECT LINK 
NOT THIS ONE 

CONTROL WORD FOR READING LINK 



MAKE SURE 3RD WORD IS TRA TO SOMEWHERE 
IF NOT, COMMENT BAD TAPE 

TRANSFER TO LINK 



CHA1C9C0 
CHA1C910 
CHAIG920 
CHAIC930 
CHAIC940 
CHAIC950 
CHAI0960 
CHAI0970 
CHAIC980 
MICHAIC985 
CHAIG990 
CHAUCCO 
CHAI1010 
CHAI1020 
CHAI1030 
CHAI1040 
CHAI1050 
STRESCHAU051 
STRESCHAI1052 
STRESCHAI1053 

STRESCHAU055 
STRESCHAI1056 
STRESCHAU057 
SrRESCHAU058 
STRESCHAI1059 
STRESCHAI1060 



SECOND EOF NO GOOD 



3N TAPE . JOB TERMINATED, 
REDUNDANCY, TRY AGAIN 



CHAI1061 


CHAI1G70 


CHAU080 


CHAI1C90 


CHAI11Q0 


CHAI1110 


CHAU120 


CHAI1130 


CHAI1140 


CHAIllbO 


CHAU160 


CHAU170 


ICHAI1175 


CHAI1180 


CHAI1190 


CHAI12C0 


CHAI1210 


CHAU220 


CHAI1230 


CHAI1240 


CHAI1250 


CHAI1260 


CHAI1270 


CHAI1280 


CHAI1290 


CHAI1300 


CHAI1310 


CHAI1320 


CHAI1330 


CHAU340 
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XXAl 



XXA2 



Zl 

XLB 

12 

Z3 

XLC 
XLD 



XL01 

XGO 

XCI 



XA3 

XLX 

XCIL 

XLY 

XLZ 

XSCH 

XLIO) 

PRTAPE 
• X 
.XLA 



WTOA 

RCHA 

TCOA 

WPDA 

RCHA 

TCOA 

REWA 

REWA 

REWB 

REWB 

REWB 

HTR 

ENK 

TQP 

BSFA 

RTBA 

RCHA 

TCOA 

RTBA 

TCOA 

RTBA 

TRA 

REM 

ROS 

RCHB 

TCOB 

TRCB 

SCHB 

LAC 

CLA* 

STO 

TXI 

TXH 

TRA 

REM 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

BCI 

BCI 

IORT 

IOCT 

IOCP 

TCH 

IORT 

PIE 

PIE 

REM 

EQU 

COMMON 

EQU 



PRTAPE 
.XLX 

• XXAi 

.XCIL 

• XXA2 
1 

4 
1 
2 
3 
.Zl + 1 

.XLB 

2 

1 

.XLY 

.12 

1 

.Z3 

1 

I 



«« 

.XLZ 

.XLC 

• XLA 
.XSCH 
.XSCH 
.XL(0 
.XLD1 
.XLDl 
.XXA, 

• * 



COMMENT BAO TAPE 



REPEAT JOB 
READ IN 1 TO CS 



GO TO SIGN ON 



READ IN LINK 



t2 

) 

♦1»2>«« 

2,0 



WAS RECORD READ IN OP TO PROGRAM BREAK 
OK, GO TO THE LINK 



000100001200,0 9L 
000000400000,0 8L COL 6=1,2 
000200000000,0 7L CHANNEL A,B 



000000004004,0 
000441000440,0 



6L COL 7=2,3,4 
5L TAPE NO. 

041000000100,0 4L BAD XX DEPRESS 

000000010000,0 3L KEY S TO RERUN 

200032100002,0 2L 

100000000010,0 1L 

00003051010CO CL 

000302005254,0 11L 

351441000402,0 12L 

1,1 BAD 

It 

•XA3,,2 

.XCI, ,24 

0,,3 





3 

• X + 2 



CHAI1350 


CHAI1360 


MICHAI1365 


CHAI1370 


CHAI1390 


MICHAI1400 


CHAI1470 


CHAI1480 


CHAI1490 


CHAI1500 


CHAI1510 


MICHAI1520 


CHAU530 


CHAI1540 


CHAI1550 


CHAI1560 


CHAI1570 


MICHAI1575 


CHAI1580 


MICHAI1585 


CHAU590 


CHAI1600 


CHAI1610 


CHAI1620 


CHAI1630 


CHAI1640 


CHAI1650 


CHAI1660 


CHAI1670 


MICHAM680 


CHAI1690 


CHAI1700 


CHAU7I0 


CHAI1720 


CHAI1730 


MICHAI1740 


MICHAI1750 


MICHAI1760 


MICHAI1770 


MICHAI1780 


MICHAI1790 


MICHAI1800 


MICHAI1810 


MICHAI1820 


MICHAI1830 


MICHAI1840 


MICHAI1850 


CHAU860 


CHAI1870 


CHAI1880 


MICHAI1890 


CHAM910 


CHAU920 


CHAI1930 


CHAI1940 


CHAU950 


CHAI1960 


CHAI1970 


CHAU980 


CHAI1990 
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.XXA 


EQU .XLA+4 


CHAI20C0 


.XXA1 EQU .XXA+3 


MICHAI2010 


.XXA2 ECU .XXA1+3 


CHAI2020 


.Zl 


EQU .XXA2+6 


MICHAI2025 


.XLB 


EQU .Zl+4 


MICHAI2030 


.12 


EQU .XLB+2 


MICHA12C33 


.13 


EQU .Z2+2 


MICHAI2036 


.XLC 


EQU .Z3+3 


MICHA12040 


.XLD 


EQU .XLC+2 


CHAI2050 


•XL01 EQU .XLD+6 


CHAI2C60 


.XGC 


EQU .XLD1+2 


CHA12070 


.XCI 


EQU .XGO+l 


CHAI2080 


.XA3 


EQU .XCI+24 


MICHAI2090 


.XLX 


EQU «XA3+2 


CHA121C0 


•XCIL EQU .XLX+1 


CHAI2110 


.XLY 


EQU *XCIL+1 


MICHAI2120 


.XLZ 


EQU .XLY+2 


CHAI2130 


.XSCH EQU .XLZ+l 


CHAI2140 


.XL(OJ 


1 EQU .XSCH+1 


CHAI2150 


MADSW, 


. PIE 


♦♦•MITCHAI2160 


U 


COMMON 110 


STRESCHAI2161 


INORM COMMON 11 


STRLSCHAI2162 


NL 


COMMON 1 


STRESCHAI2163 


NT 


COMMON 1 


STRESCHAI2164 


NREG 


COMMON 1 


STRESCHAI2165 




END 


CHAI2170 


» 


LIST8 




• 


LA8EL 




CFILES A4 CHAIN WITH BUFFER 






SUBROUTINE FILES (NOP, TN,NFILE,NCGUNT , ARRAY ) 






COMMON U,ISCAN,ISUCC,FIL,LFILE,FIL2,NTAPE,NXREC 






DIMENSION ARRAY(100),U(112>,FIL(7),FIL2<5),ISCAN(5) 






DIMENSION NTAPE(5),NXREC(5),8UF(254),LBUR(254) 






EQUIVALENCE (BUF,LBUR) 






XNTF(L)=UL-l)/20+l)-(4»((L-i)/ 80)) 






XNRNF(L) = U-l)/80 +1 






XLFNFU) = <<L-i)/20)*20+21 






XFIBF(L)=L-2G»UL-l)/20) 




5 


60 TO (10t20,30,30,19),NCP 




10 


NTAPE(1)=5 

NTAPE(2)=6 

NTAPE(3)=7 

NTAPE(4)=9 

LFILE=1 

N8UF=0 

CO 11 1=1,4 

NT=NTAPE(l) 

NXRECU) = i 




11 


REMIND NT 




12 


RETURN 




C 


DUMP BUFFER ON TAPE AND RETURN 




19 


NS1=3 

IF(NBUF)12,12,234 




20 


IFCNCOUNT-252 ) 231,231,21 




C 


IS BUFFER EMPTY 




21 


IF(NBUF)25,25,22 




22 


NS1 = 1 




C 


EMPTY BUFFER 




234 


NIT=XNTF(LFILE-1) 
NT=NTAP£(NIT) 
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NIR=XNRNFCLFIL£-l) 
230 IF(NIR-NXREC{NIT))23,24,26 

23 PRINT 1,LFILE 
GO TO 12 

1 FORMAT (39H1ERRGR IN TAPE WINCING FOR WRITING FILE,I6) 

24 WRITE TAPE NT , (BUF ( I ) , 1=1 , 254) 
NBUF=0 

LFILE=XLFNFCLFILE-1) 
NXR£CCNIT)=NXR£C(NIT)+l 

GO TO (25,235, 13), NS1 

25 NIT=XNTF<LFILE) 
NT=NTAP£(NIT) 
NIR=XNRNF(LFILE) 
NS2=2 

29 IF(NIR-NXREC(NIT))23,27,240 

26 NS2 = 1 

C FORWARD SPACING ROUTINE 
240 REAO TAPE NT, NOLO 

NXREC(NIT)=NXREC(NIT)+l 

GO TO (230,29, 37), NS2 
C WRITE ARRAY ON TAPE - IT EXCEEDS BUFFER SIZE 

27 WRITE TAPE NT ,LFILE ,NCOUNT, C ARRAY ( I ) , 1*1 ,NCOUNT) 
NFILE=LFILE 

LFILE=XLFNF(LFILE) 
NXREC(NIT)=NXREC(NIT)+1 
13 IF(65400-LFILE)14,12,12 

14 PRINT 15 
INORM=l 

CALL CHAINU,4) 

15 F0RMAT(50H1TAPE CAPACITY EXCEEDED* PROBLEM CANNOT CONTINUE.) 
C WILL ARRAY FIT IN BUFFER 

231 IF(NBUF+NC0UNT-252)232,232,233 
C NO - EMPTY BUFFER 

233 NS1=2 

GO TO 234 
C IS THIS THE FIRST FILE 

232 IF(XFIBF(LFILE)-1)235,237,235 

C YES - DUMP BUFFER IF NGN EMPTY AND -235- PUT ARRAY IN BUFFER 

237 IF(NBUF)235,235,233 

C NO - 235 - PUT ARRAY IN BUFFER 

235 I8UF=NBUF+2 
LBUR(IBUF-1)=LFILE 
L8UR(IBUF)=NC0UNT 
DO 236 I=1,NC0UNT 
Ii=IBUF+I 

236 BUFU1) = ARRAY(I) 
NBUF=I1 
NFILE=LFIL£ 
LFILE=LFILE+1 

GO TO 12 

30 LB=XFIBF(NFILE)-1 
IF(LBUR(1)-NFILE+LB)33,74,33 

33 NIR=XNRNF(NFILE) 

NIT=XNTF(NFILE) 

NT=NTAPE(NIT) 

NS2=3 
37 IF(NIR-NXREC(NIT))31,35,240 

31 N=NXREC(NIT)-NIR 

I F ( NXR EC { N I T ) / 4-N ) 45 , 45 , 60 
60 DO 32 1=1, N 
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32 BACKSPACE NT 

35 NXREC(NIT)=NIR+1 
IF{N0P-3>22, 36,40 

45 REWINO NT 

NXRECCNIT>=1 
GO TO 37 

36 IF (NCOUNT-252) 70,70,38 

38 READ TAPE NT,NCLD,N f { ARRAY( I \ , 1=1 ,NCOUNT ) 

IF(NFILE-NCLD)44,12,44 
44 PRINT 2,NFILE 

ISUCC=2 

ISCAN=2 

CALL CHAIN{1,4) 
70 REAO TAPE NT , ( BUF( I ) , 1=1 ,254 ) 

74 NBF=2 
IF(LB)44,77,78 

78 DO 71 1=1, LB 

71 NBF=NBF+2+LBUR(NBF) 

77 IFUBURCNBF)-NC0UNT)75,72,72 

72 DO 73 I=1,NC0UNT 
J=NBF+I 

73 ARRAY( I)=BUF(J) 
GO TO 12 

75 N=N+1 

DO 76 I=N,NCCUNT 

76 ARRAYU)=0.0 
NC0UNT=N-1 
GO TO 72 

40 IF(XFI8F{NFILE)-1)44,41,70 

41 READ TAPE NT, NOLO, N 
BACKSPACE NT 
IF(NC0UNT-N)38,38,42 

42 N=N + 1 

DO 43 I=N,NCOUNT 

43 ARRAYU)=O.G 
NCOUNT=N-l 
GO TO 38 

2 F0RMAT125H1TAPE READING ERROR, FILE, 16) 
END 

* FAP 

COUNT 200 CHAIC010 

SST CHAI0020 

» 32K 709/7090 FORTRAN LIBRARY 9CHN CHAIC030 

* 32K 709/7090 FORTRAN LIBRARY MIT VERSION. MARCH 28,1962 MICHAICC40 
TTL MONITOR CHAIN ROUTINE / 9CHN FOR STRESS III PROCESSOR CHAI0050 

* ALL CARDS SEQUENCE NUMBERED WITH MI ARE ONLY FOR MIT MONITOR 

* ALL CARDS SEQUENCE NUMBERED WITH STRES ARE FOR STRESS PROCESSOR 
LBL STATA5 

* MAY 16 1963 REVISED FOR TSS BACKGROUND MICHAIC070 

* AUG 22 1963 * REVISED FOR 7094 MICHAI0071 

* NOV 20 1963 * REVISED FOR STRESS III S TRfcSCHA I C072 

* JAN 15 1964 * REVISED FOR STRESS III PROCESSOR TAPE ON A5 S IRESCHAI0CC76 

* STARTER VERSION OF CHAIN FOR STARTING CHAIN TAPE ON A5 

BCORE MICHAIC075 

ENTRY CHAIN CHAIC080 

CHAIN LTM CHAIC090 

EMTM 7C94 MICHAI0092 

ENB =0400000 DISABLE EVERY TRAP BUT CLOCK 7094 MICHAI0094 
CAL 1,4 ***MITCHAIC1C0 

STP MADSW. »«#MITCHAIC110 
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CHA 



CHAB 



CHC 



SXA 


• ♦2,4 




CHAI0120 


XEC« 


SUES) 




CHAIC130 


AXT 


• •,4 




CHAI0140 


CIA* 


lt4 




CHAI0150 


ZET 


MADSW. 




•••MITCHAI0160 


ALS 


18 




•••MITCHAIG170 


STO 


CHWRD 




CHAIC180 


AXT 


<CLKL),4 




•••MITCHAI0270 


SXA 


(CTRP),4 




•••MITCHAI0280 


AXT 


1093,4 


SET FCR 


CHAIC490 


SXA 


XA3+1,4 


A5 


CHAIC500 


TXI 


•♦1,4,-448 


IRC = 1205 OCTAL 


CHAI0510 


AXT 


4,2 




CHAI0520 


SXA 


CHWRD, 2 




CHAIC530 


AXT 


2048,2 




CHAI0540 


PXO 


0,2 




CHAI0550 


ORS 


XCI+10 


SET 4L 


MICHAI0560 


ALS 


1 




CHAI0570 


ORS 


XCI+I6 


SET A 


MICHAIC580 


CLM 






CHAI0590 


LDQ 


XXA 


TCOA 


CHAI06C0 


SXA 


CH0,4 


AC=PREFIX ♦OR-,MQ=TCO AC=2202, 2203, 1204 BSCHAIC610 


SXA 


XLA,4 


BSR 


CHAI0620 


SXA 


CHE+3,4 


REW 


CHAI0630 


TXI 


•♦1,4,16 


SET IRC FOR BIN 


CHAI0640 


SLQ 


CHC+2 




MICHAIC645 


SXA 


CHC+3,4 


RTB 


MICHAIC650 


STP 


CHC+4 


RCH 


MICHAI0660 


SLQ 


CHC + 5 


TCO 


MICHAI0670 


STP 


CHC+6 


TRC 


MICHAIC680 


STP 


CHC^T 


TEF 


MICHAI0690 


SXA 


XLC,4 


RTB 


CHAI0700 


STP 


XLC^l 


RCH 


CHAI0710 


SLQ 


XLO 


TCO 


CHAI0720 


STP 


XLO+l 


TRC 


CHAIC730 


STP 


XLD+2 


SCH 


CHAI0740 


STP 


CHC-l 


TEF 


CHAI0750 


AXT 


XL(0)-XLA+1,1 


MOVE 


CHAIC760 


AXT 


0,2 


LOADER TO UPPER 


CHAIC770 


CLA 


XLA,2 




CHAI0780 


STO 


.XLA,2 




CHAI0790 


TXI 


•♦1,2,-1 




CHAIC8C0 


TIX 


•-3,1,1 




CHAI0810 


TEFA 


• ♦1 




CHAI0820 


AXT 


5,1 




CHAI0830 


CLA 


CHWRD 




CHAIC840 


TC08 


* 




WICHAI0845 


ROS 


• • 


2 


CHAI0850 


RCH8 


CHSEL1 


3 


CHAI0860 


TC08 


• 


4 


CHAI0870 


TRCfi 


CHD 


5 


CHAI0880 


TEFB 


CHE 


6 


CHAI0890 


LXA 


LBL»2 




CHAI09C0 


TXH 


♦♦2,2,4 




CHAIC910 


TXH 


•♦3,2,1 




CHAIC920 


AXT 


4,2 


ANY TAPE EXCEPT 2 OR 3 MAKE 4 


CHAI093G 


SXA 


LBL,2 




CHAI0940 


SU8 


LBL 


IS THIS THE CORRECT LINK 


CHAIC950 


TNZ 


CHC 


NOT THIS ONE 


CHAIC960 


CLA 


LKRCW 




CHAI0970 
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STO 


.XLZ 




STA 


•XL(0> 




CAL 


PROG 




ERA 


XGO 




PDX 


tl 




TXH 


.XXA, 1,0 




TZE 


• XXA 




CLA 


PROG 




STO 


.XGO 




AXT 


5,1 




TRA 


.XLC 


TEMP 


PZE 




CHD 


BSRB 


«» 




TIX 


CHC+lfltl 




TRA 


• XXA 


CHE 


NZT 


CHAIN 




TRA 


NGO 




STZ 


CHAIN 




REWA 


»» 




TRA 


CHC 


NGD 


LXA 


XA3+i,l 




SXD 


COMl+3,1 




TCOA 


* 




WTDA 


PRTAPE 




RCHA 


CHSEL2 




TRA» 


$EXIT 


CHWRO 


PZE 




TCOB 


TCOB 


* 


CHSEL1 


IORT 


LBL,, 3 


LBL 






LKRCW 






PROG 






CHSEL2 


IORT 


C0M1,,7 


COM1 


BCI 
REM 


7,1 LINK 


XLA 


BSRA 
IOT 

NOP 


»» 




TIX 


•XLC, 1,1 


XXA 


TCOA 


• XXA 




WTDA 


PRTAPE 




RCHA 


• XLX 


XXA1 


TCOA 
WPDA 


• XXA1 




RCHA 


• XCIL 


XXA2 


TCOA 


• XXA2 




REWA 


1 




REWA 


4 




REW8 


1 




REWB 


2 




KEWB 


3 


Zl 


HTR 
ENK 


• Zl + 1 




TQP 


• XLB 




BSFA 


2 


XLB 


RTBA 


1 




RCHA 


• XLY 


Z2 


TCOA 


.12 




RTBA 


1 


Z3 


TCOA 


• Z3 



CONTROL WORD FOR READING LINK 



MAKE SURE 3RD WORD IS TRA TO SOMEWHERE 
IF NOT, COMMENT BAD TAPE 



TRANSFER TO LINK 



SECONC EOF NO GOOD 



3N TAPE . JOB TERMINATED. 
REDUNDANCY, TRY AGAIN 

COMMENT BAD TAPE 



REPEAT JOB 
READ IN 1 TO CS 



CHAIC980 


MICHAIG985 


CHAI0990 


CHAI1CC0 


CHAI1010 


CHAI1020 


CHAI1030 


CHAI1040 


CHAI1050 


CHAI1061 


CHAI1070 


CHAI1C80 


CHAI1090 


CHAillCO 


CHAIlliO 


CHAI1120 


CHAU130 


CHAI1140 


CHAI1150 


CHAU160 


CHAI1170 


MICHAI1175 


CHAI1180 


CHAU190 


CHAI12C0 


CHAI1210 


CHAI1220 


CHAI1230 


CHAU240 


CHAI1250 


CHAI1260 


CHAI1270 


CHAU280 


CHAI1290 


CHAI1300 


CHAI1310 


CHAI1320 


CHAI1330 


CHAI1340 


CHAU350 


CHAU360 


MICHAI1365 


CHAI1370 


CHAI1390 


MICHAI1400 


CHAI1470 


CHAI1480 


CHAI1490 


CHAI1500 


CHAI1510 


MICHAI1520 


CHAI1530 


CHAI1540 


CHAI1550 


CHAI1560 


CHAI1570 


MICHAI1575 


CHAI1580 


MICHAI1585 
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xlc 

XLD 



XLD1 

XGO 

XCI 



XA3 

XIX 

XCIL 

XLY 

XLZ 

XSCH 

XL(0) 

PRTAPE 
.X 

.XLA 
.XXA 
.XXA1 

• XXA2 
.Zl 
.XLB 
.12 
.Z3 
.XLC 
.XLD 
.XLDi 
.XGO 
.XCI 

• XA3 
.XLX 
.XCIL 
.XLY 
.XLZ 
.XSCH 

• XLC-0-) 
MADSK. 



RT8A 

TRA 

REM 

ROS 

RCHB 

TCOB 

TRCB 

SCHB 

LAC 

CLA» 

STO 

TXI 

TXH 

TRA 

REM 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

8CI 

BCI 

IORT 

IOCT 

IOCP 

TCH 

IORT 

PZE 

PZE 

REM 

EQU 

COMMON 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

EQU 

PZE 



.XLZ 
.XLD 
.XLA 
.XSCH 

• XSCH, 2 
.XL(O) 

• XLDI 

.XL01+i,2,< 
.XXA, 2,0 



GO TO SIGN ON 



READ IN LINK 



WAS RECORD READ IN 
OK, GC TO THE LINK 



UP TO PROGRAM BREAK 



000100001200,0 9L 

000000400000,0 8L COL 6=1,2 

000200000000,0 7L CHANNEL A,B 

0O0COC0C4004,O 6L CCL 7=2,3,4 

000441000440,0 5L TAPE NO. 

041000000100,0 4L BAD XX DEPRESS 

000000010000,0 3L KEY S TO RERUN 

200032100002,0 2L 

100000000010,0 1L 

000030510100,0 OL 

000302005254,0 11L 

351441000402,0 12L 

1,1 BAD 

It 

.XA3,,2 

.XCI, ,24 

Oft 3 



»*, ,»* 



3 



.X+2 

.XLA+4 

.XXA+3 

.XXA1+3 

.XXA2+6 

.Zl + 4 

.XLB+2 

• Z2 + 2 

.Z3+3 

.XLC+2 

.XLD+6 

.XLD1+2 

.XGO+l 

•XCI+24 

•XA3+2 

.XLX+1 

.XCIL+1 

•XLY+2 

.XLZ+1 

•XSCH+1 



CHAI1590 

CHAI1600 

CHAI1610 

CHAI1620 

CHAI1630 

CHAI1640 

CHAI1650 

CHAI1660 

CHAI1670 

MICHA11680 

CHAI1690 

CHAU7C0 

CHAI1710 

CHAI1720 

CHAI1730 

MICHAU740 

MICHAU750 

MICHAI1760 

MICHAI1770 

MICHAU780 

MICHAI1790 

MICHAI1800 

MICHAI1810 

MICHAI1820 

MICHAI1830 

MICHAI184C 

MICHAI1850 

CHAI1860 

CHAI1870 

CHAI1880 

MICHAI1890 

CHA11910 

CHAU920 

CHAI1930 

CHAI1940 

CHAI1950 

CHAI1960 

CHAI1970 

CHAI1980 

CHAI1990 

CHAI2000 

MICHAI2010 

CHA12020 

MICHAI2025 

M1CHAI2030 

MICHAI2033 

MICHAI2036 

MICHAI2040 

CHAI2050 

CHAI2060 

CHAI2070 

CHAI2080 

MICHAI2090 

CHAI21C0 

CHAI2110 

MICHAI2120 

CHAI2130 

CHA12140 

CHAI2150 

«»»MITCHAI2160 
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U COMMON 110 
INORM COMMON 11 
NL COMMON 1 
NT COMMON 1 
NREC COMMON 1 
END 

* FAP 
COUNT 400 

•XSIMEQ JULY 26, 1961 KORN 

•SOLUTION OF SIMULTANEOUS LINEAR EQUATIONS / EVALUATION OF DETERMINANTS 

* REASSEMBLE XSIMEQ TO CORRECT ERROR INDUCED BY CHANGE TO FORTRAN 

* AUGUST 22,1962 



Tl 



L8L 

ENTRY 

ENTRY 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

LXO 

SXD 

LXO 

LXD 

SXD 



XDET,X 
XSIMEQ 
XDETRM 

XSIMEQ WILL SOLVE THE MATRIX EQUATION AX=B FOR THE 
UNKNOWN MATRIX X AND WILL COMPUTE THE DETERMINANT OF 
FORTRAN STATEMENT TYPE 



XDETRM WILL COMPUTE THE 
FORTRAN STATEMENT TYPE 

WHERE 



DETERMINANT OF A. 

M=XDETRMF(N,LN,A,D) 



N*FIXED POINT CONSTANT OR VARIABLE EQUAL TO MAXIMUM 
POSSIBLE NUMBER OF ROWS (=COLUMNS) IN MATRIX A AS 
SPECIFIED BY DIMENSION STATEMENT IN SOURCE PROGRAM 



LN=FIXED POINT CONSTANT OR 
PROGRAM DIMENSION OF A 



VARIABLE EQUAL TO OBJECT 



LM*FIXED POINT 
PROGRAM NUMBER 



CONSTANT OR VARIABLE 
OF COLUMNS IN MATRIX 



EQUAL 
B (NOT 



TO OBJECT 
LARGER THAN 



A=SOURCE PROGRAM FLOATING 
DESIGNATE THE ELEMENTS OF 

B=SOURCE PROGRAM FLOATING 
DESIGNATE THE ELEMENTS OF 



POINT VARIABLE USED TO 
THE MATRIX A 

POINT VARIABLE USED TO 
THE MATRIX B 



D=SOURCE PROGRAM FLOATING POINT 
SCALING FACTOR. AFTER EXECUTION 
OF THE DETERMINANT 



VARIABLE USED TO DENOTE 
D CONTAINS SCALED VALUE 



E*SOURCE 
DENOTING 



PROGRAM FIXED OR FLOATING POINT VARIABLE 
AT LEAST LN ERASABLE CELLS 



M WILL BE SET TO 

1 IF SOLUTION IS SUCCESSFUL 

2 IF SPILL OCCURRED 

3 IF MATRIX A IS SINGULAR. 



LOCATE 

AKK,1 

AKC,1 

K,2 

K,4 

It2 



PIVOT AND RECORD I AND J 

INITIALIZE ELEMENT LOCATION INDEX 



INITIALIZE ROW INDEX 
INITIALIZE COLUMN INDEX 
INITIALIZE MAXIMUM PIVOT 



ROW 



STRESCHAI2161 
STRESCHAI2162 
STRESCHAI2163 
STRESCHAI2164 
STRESCHAI2165 
CHA12170 
XDETCCOO 
XDET0010 
XDETC020 
XDETC030 
XDETC040 
XDET0050 
XDET0060 
XDETC070 
XDET0080 
X0ET0090 
XDET0100 
X0ETG110 
XDET0120 
XDET0130 
XDETQ140 
X0ETC150 
XDETC160 
XDETG170 
XDETC180 
XDETG190 
XDET0200 
XDETQ210 
XDET0220 
X0ETC230 
XDET0240 
XDETG250 
XDETG260 
N)XDETC270 
XDETC280 
XDETG290 
XDET03C0 
XDETC310 
XDET0320 
XDET0330 
XDET0340 
XDET0350 
XDET0360 
XDET0370 
XDET0380 
XDET0390 
XDET0400 
XDET0410 
XDET0420 
XDETC430 
XDET0440 
XDET0450 
XDETG460 
XDETC470 
XDETC480 
XDET0490 
XDET05C0 
XDETG510 
XDET0520 
X0ET0530 
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SXD 


Jt4 






INITIALIZE MAXIMUM PIVOT COLUMN 


XDET0540 


T7 


PXD 


0.0 








XDET0550 


T8 


ADM 


0,1 






AC CONTAINS MAGNITUDE CURRENT MAXIMUM 


XDET0560 




TXI 


T10, 


ii 


rl 


NEXT ELEMENT 


XDET0570 


T10 


TXI 


Til, 


.2, 


► 1 


NEXT ROW 


XDET0580 


Til 


TXH 


T17, 


2, 


»LN 


TRANSFER IF LAST ROW TESTED 


XDET0590 


T12 


SBM 


Otl 






TEST CURRENT ELEMENT 


XDET0600 




TPL 


T8 






CURRENT MAXIMUM PIVOT HOLDS 


XDET0610 




SXD 


lt2 






CHANGE MAXIMUM PIVOT 


XDETC620 




SXD 


Jt4 








XDET0630 




TRA 


T7 








XDET0640 


in 


tXD 


AKQ, 


1 




KTH ELEMENT, CURRENT COLUMN 


XDET0650 


IIS 


TXI 


T19, 


rll 


.N 




XDET0660 


T19 


SXD 


AKQ, 


tl 




KTH ELEMENT, NEXT COLUMN 


XDET0670 




LXD 


K,2 






KTH ROW 


XDET0680 




TXI 


T20, 


4, 


rl 


NEXT COLUMN 


XDET0690 


T20 


TXL 

REM 


T12, 


Ai 


,LN 


EXIT IF LAST COLUMN TESTED 


XDETC700 
XDET0710 




REM 


INTERCHANGE 


ROWS IF NECESSARY 


XDET0720 




REM 










XDET0730 


T21 


CLA 

SUB 


I 
K 








XDETC740 
XDET0750 




TZE 


T55 






NO ROW INTERCHANGE 


XDET0760 




ADD 


AKK 








XDET0770 




PDX 


0,2 






INITIALIZE ITH ROW INDEX 


XDETC780 




LXD 


AKK, 


>1 




INITIALIZE KTH ROW INDEX 


XDET0790 




LXD 


K,4 






INITIALIZE COLUMN INDEX 


XDET0800 


T28 


CLS , 


r D 






CHANGE SIGN OF 


XDET0810 


T29 


STO , 


, D 






DETERMINANT 


XDET0820 


T30 


LDQ 


0,1 






INTERCHANGE 


XDET0830 




CLA 


0,2 






KTH AND ITH 


XDET0840 




STO 


0,1 






ROWS OF 


XDET0850 




STQ 


0,2 






MATRIX A 


XDET0860 


T34 


TXI 


T35, 


»li 


>N 


NEXT ELEMENT, KTH ROW 


XDET0870 


T35 


TXI 


T36, 


.2, 


rN 


NEXT ELEMENT, ITH ROW 


X0ET0880 


T36 


TXI 


T37, 


.4, 


► 1 


NEXT COLUMN 


XDET0890 


T37 


TXL 


T30, 


.4, 


»LN 




XDET09C0 


T38 


NOP 
CLA 
ADD 


KM1 
B 






TRANSFER TO T55 FOR XDETRM 


X0ET0910 
XDET0920 
XDET0930 




PDX 


0,1 






INITIALIZE KTH ROW INDEX 


XDET0940 




SUB 


K 








XDET0950 




ADD 


I 








XDET0960 




PDX 


0,2 






INITIALIZE ITH ROW INDEX 


XDET0970 




LXD 


=O10C00CQ,4 


INITIALIZE COLUMN INDEX 


XDET0980 


T46 


LDQ 


0,1 






INTERCHANGE 


XDET0990 




CLA 


0,2 






KTH AND ITH 


XDET1C00 




STO 


0,1 






ROWS OF 


XDET1010 




STQ 


0,2 






MATRIX B 


XDET1020 


T50 


TXI 


T51, 


It 


,N 


NEXT ELEMENT, KTH ROW 


XDET1030 


T51 


TXI 


T52, 


.2, 


► N 


NEXT ELEMENT, ITH ROW 


XDET1040 


T52 


TXI 


T53, 


.4, 


rl 


NEXT COLUMN 


XDET1050 


T53 


TXL 

REM 


T46, 


Ai 


,LM 


EXIT IF LAST COLUMN PRGCESSED 


XDET1060 
XDET1070 




REM 


INTERCHANGE 


COLUMNS IF NECESSARY 


XDET1080 




REM 










XDET1090 


T55 


CLA 

SUB 


J 
K 








XDETllCO 
XOETlllO 




TZE 


T85 






NO COLUMN INTERCHANGE 


X0ET1120 




ADD 


KM1 








XDET1130 



377 





LRS 


35 




MPY 


N 




ALS 


17 




ADO 


A 




POX 


0,2 




LXD 


LN,4 


T68 


CLS 


, D 


T69 


STO 


, D 


TTO 


LOQ 


0,1 




CLA 


0,2 




STO 


0,1 




STQ 


0,2 




TXI 


T75,l,l 


T75 


TXI 


T76,2,l 


T76 


TIX 


T70,4,l 


T77 


NOP 






LXD 


J,l 




LXD 


K,2 


T80 


CLA 


,1 E+1,1 


T81 


LDQ 


,2 £+1,2 


T82 


STO 


,2 E+l,2 


T83 


STQ 

REM 


,1 E+1,1 




REM 


COMPUTE 1 




REM 




T85 


LXD 


AKK,1 




CLA 


0,1 




LRS 


35 




TZE 


T251 


T89 


FMP 


f D 


T90 


STO 

REM 


, o 




REM 


ROW REDUi 




REM 






LXD 


KP1,1 




SXD 


El,l 




LXD 


AKK,1 




SXD 


E2,l 




CLA 


KM1 




AOD 


B 




STD 


E3 


T99 


LXD 


E3,l 




TXI 


TlOltltl 


TiOl 


SXD 


E3,l 




LXD 


E2,l 




TXI 


T104,l,l 


T104 


SXD 


E2,l 




LXD 


AKK,2 




LXD 


KP1,4 




CLA 


0,1 




TZE 


T136 




FDP 


0,2 




STQ 


G 


Till 


TXI 


T112,1,N 


T112 


TXI 


T113,2,N 


T113 


LDQ 


G 




FMP 


0,2 




CHS 






FAD 


0,1 




STO 


0,1 



INITIALIZE KTH COLUMN INDEX 
INITIALIZE COMPLEMENTARY ROW INDEX 
CHANGE SIGN OF 

DETERMINANT 
INTERCHANGE 

KTH AND JTH 

COLUMNS OF 

MATRIX A 
NEXT ELEMENT, JTH COLUMN 
NEXT ELEMENT, KTH COLUMN 

TRANSFER TO T85 FOR XDETRM 



INTERCHANGE 

JTH AND KTH 
ELEMENTS OF 
ARRAY E 



PIVOT ELEMENT 
MATRIX A SINGULAR 



INITIALIZE ROW TO BE REDUCED 



FIRST ELEMENT, CURRENT ROW, MATRIX B 

LEADING ELEMENT, CURRENT ROW, MATRIX 
INITIALIZE COLUMN INDEX 
ROW NEEDS NO REDUCTION 



ELEMENT REDUCED 



XDETI140 
XDET1150 
XDET1160 
XDET1200 
XDET1210 
XDEU220 
XDET1230 
XDET1240 
XDET1250 
XDET1260 
XDET1270 
XDET1280 
XDET1290 
XDET13C0 
XDET1310 
XDET1320 
XDET1330 
XDET1340 
X0ET1350 
XDET1360 
XDET1370 
XDET1380 
XDET1390 
XDET1400 
XDET1410 
XDET1420 
XDET1430 
X0ET1450 
XDET1440 
XDET1460 
XDET1470 
XDET1480 
XDET1490 
XDET1500 
X0ET1510 
XDET1520 
XDET1530 
XDET1540 
XDET1550 
XDET1560 
XDET1570 
XDET1580 
XDET1590 
XDET1600 
X0ET1610 
X0ET1620 
XDET1630 
XDET1640 
X0ET1650 
XDET1660 
XDET1670 
XDET1680 
XDET1690 
XDET17C0 
XDET1710 
XDET1720 
XDET1730 
XDET1740 
XDET1750 
XDET1760 



378 



T118 


TXI 


T119,1,N 


T119 


TXI 


T12Q,2,N 


T120 


TXI 


T121,4,l 


T121 


TXL 


T113,4,LN 


T122 


NOP 






LXD 


E3,l 




CLA 


KM1 




ADO 


8 




PDX 


0,2 




LXD 


LM,4 


T128 


LDQ 


0,2 




FMP 


G 




CHS 






FAD 


0,1 




STO 


0,1 


T133 


TXI 


T134,1,N 


T134 


TXI 


T135,2,N 


T135 


TIX 


T128,4,l 


T136 


LXD 


Ei,l 




TXI 


T138,l,l 


T138 


SXD 


El.l 


T139 


TXL 


T99,1,LN 




LXD 


KP1,1 




TXI 


T142,l,l 


T142 


TXH 


T156,1,LN 




SXD 


KP1,1 




TIX 


T 145, 1,1 


T145 


SXD 


K,l 




TIX 


T147,l,l 


T147 


SXD 


KM1,1 




CLA 


KM1N 




ADD 


N 




STO 


KMIN 




CLA 


AKK 




ADD 


N 




ADD 


=01000000 




STO 


AKK 




TRA 


Tl 


T156 


CLA 


AKK 




ADD 


N 




ADD 


=01000000 




PDX 


0,1 . 




CLA 


0,1 




TZE 


T251 




LRS 


35 


T163 


FMP 


> D 


T164 


STO , 


r D 


T165 


NOP 
REM 






REM 


BACK sues 




REM 






SXD 


AKK,1 




CLA 


LN 




SUB 


=01000000 




ADD 


B 




STD 


E3 




LXD 


LM,1 




SXD 


El, I 


T174 


LXD 


LN,1 




SXD 


E4,l 



NEXT ELEMENT, CURRENT ROW 
NEXT ELEMENT, KTH ROW 
NEXT COLUMN 

TRANSFER TO T136 FOR XDETRM 
BEGIN REDUCTION OF MATRIX B 



ELEMENT REDUCED 

NEXT ELEMENT, CURRENT ROW 

NEXT ELEMENT, KTH ROW 



NEXT ROW TO BE REDUCED 



REDUCTION COMPLETE 
K+l 

K 

K-l 

(K-l)N 



BEGIN NEW STAGE 



LAST PIVOT 
MATRIX A SINGULAR 

FINAL VALUE OF 

DETERMINANT 
THRU FOR XDETRM 



XDET1770 
XDET1780 
XDET1790 
XDET18C0 
XDET1810 
XDET1820 
XDET1830 
XDET1840 
XDET1850 
XDET1860 
XDET1870 
XDET1880 
XDET1890 
XDET19C0 
XDET1910 
XDET1920 
XDET1930 
XDET1940 
XDET1950 
XDET1960 
XDET1970 
XDET1980 
XDET1990 
XDET2CG0 
XDET2010 
XDET2020 
XDET2030 
XDET2040 
XDET2G50 
XDET2060 
XDET2070 
XDET2080 
XDET2090 
XDET21C0 
XDET2110 
XDET2120 
XDET2130 
XDET2140 
XDET2150 
XDET2160 
XDET2170 
XDET2180 
XDET2190 
X0ET22G0 
XDET2210 
XDET2220 
XDET2230 
X0ET2240 
XDET2250 
XDET2260 
XDET2270 
XDET2280 
XDET2290 
XDET2300 
XDET2310 
XDET2320 
XDET2330 
XDET2340 
XDET2350 
XDET2360 



379 





LXD 


AKK,i 




SXD 


£2,1 




LXD 


E3,2 




CLA 


0,2 




FDP 


0,1 




STQ 


0,2 


T182 


LXD 


E2,I 




TXI 


T184,l,-1 


T184 


SXD 


E2,l 




STZ 


G 




LXD 


E4,4 




TNX 


T204,4,l 




SXD 


E4,4 




LXD 


£3,2 


T191 


LDQ 


0,1 




FMP 


0,2 




FAD 


G 




STQ 


G 


T195 


TXI 


T196,l, -N 


T196 


TXI 


T197,2,-l 


T197 


TXI 


T198,4,l 


T198 


TXL 


T191,4,LN-1 




CLA 


0,2 




FSB 


G 




FDP 


0,1 




STQ 


0,2 




TRA 


T182 


T204 


LXD 


E3,2 


T205 


TXI 


T2G6,2,N 


T206 


SXD 


E3,2 




LXD 


El, 2 




TNX 


T212,2,l 


T209 


SXD 


El, 2 




TRA 


T174 




REM 






REM 


REARRANGEME 




REM 




T212 


CLA 


A 




STD 


El 




CLA 


=01000000 




STD 


E2 


T216 


LXD 


= 0,1 


T217 


CLA 


E2 


T218 


SUB 


,1 E,l 




TZE 


T221 




TXI 


T217,l,l 


T221 


PXD 


0,1 




ADD 


B 




PDX 


0,1 




LXD 


El, 2 




LXD 


LM,4 


T226 


CLA 


0,1 




STO 


0,2 


T228 


TXI 


T229,1,N 


T229 


TXI 


T230,2,N 


T23C 


TIX 


T226,4,i 




LXD 


LN,4 




TNX 


T242,4,l 




SXD 


LN,4 




CLA 


El 



LAST ELEMENT, CURRENT ROW, MATRIX A 



ROW TO BE PROCESSED 



VALUE OF UNKNOWN 



LAST ROW, NEXT COLUMN, MATRIX B 



NUMBER OF REMAINING COLUMNS 
USE CLM-E1+1)TH COLUMN OF B 



REARRANGEMENT AND PERMANENT STORAGE ASSIGNMENT 



THRU WITH XSIMEQ 



XDET2370 
X0ET2380 
XDET2390 
XDET24C0 
XDET2410 
XDET2420 
XDET2430 
XDET2440 
XDET2450 
X0ET2460 
XDET2470 
X0ET2480 
XDET2490 
XDET2500 
XDET2510 
XDET2520 
XDET2530 
XDET2540 
XDET2550 
XDET2560 
XDET2570 
XDET2580 
XDET2590 
XDET26C0 
XDET2610 
XDET2620 
XDET2630 
XDET2640 
XDET2650 
XDET2660 
XDET2670 
XDET2680 
X0ET2690 
XDET2700 
XDET2710 
XDET2720 
XDET2730 
XDET2740 
XDET2750 
XDET2760 
XDET2770 
X0ET2780 
XDET2790 
XDET2800 
XDET2810 
XDET2820 
X0ET2830 
XDET2840 
XDET2850 
XDET2860 
X0ET2870 
XDET2880 
X0ET2890 
XDET2900 
XDET2910 
XDET2920 
X0ET2930 
XDET2940 
XDET2950 
XDET2960 



380 



ADO 


=01000000 


STO 


Ei 


CLA 


E2 


AOD 


=01000000 


STO 


E2 


TRA 


T216 


REM 




REM 


FINAL RESULTS 


REM 




T242 CLA 


=01000000 


T243 LXO 


REG12,1 


LXA 


REG12,2 


LXO 


Tl-2,4 


LOQ 


SAVE 


STQ 


8 


TRA 


1,4 


T249 CLA 


=02000000 


TRA 


T243 


1251 CLA 


=03000000 


TRA 


T243 


REM 




REM 


ENTRY POINTS 


REM 




T254 STO 


N 


STQ 


LN 


CLA 


=076100000000 


STO 


T38 


STO 


T77 


STO 


T122 


STO 


T165 


STO 


T298 


SXD 


Tl-2,4 


CAL 


-1,4 


ARS 


15 


ERA 


=04634004 


TNZ 


• ♦2 


TXI 


*+l,4,l 


CLA 


-9,4 


ALS 


18 


STD 


A 


CLA 


-3,4 


STA 


T218 


STA 


T301 


AOD 


= 1 


STA 


T80 


STA 


T81 


STA 


T82 


STA 


T83 


CLA 


C0MM0N-2 


STO 


LM 


CLA 


-7,4 


ALS 


18 


STD 


B 


CLA 


-5,4 


T280 STA 


T28 


STA 


T29 


STA 


T68 


STA 


T69 


STA 


T89 


STA 


T90 



FIRST ELEMENT, NEXT ROW, MATRIX A 



NEXT ROW 



SOLUTION SUCCESSFUL 
RESTORE INDEX REGISTERS 



RESTORE LOCATION 8 

EXIT FROM SUBROUTINE 
SPILL 

MATRIX A SINGULAR 



ENTRY FOR XSIMEQ 
OCTAL CODE FOR NOP 



CHECH WORD PRECEEDING THE TSX 
TO SEE IF IT WAS AN SXO 



HAS SXD REDUCE IR 4 BY ONE 
FOURTH ARGUMENT (A) 



SEVENTH ARGUMENT (E) 



THIRD ARGUMENT (LM) 
FIFTH ARGUMENT (B) 

SIXTH ARGUMENT (D) 



XDET2970 
X0ET2980 
X0ET2990 
XOET3000 
XDET3010 
XDET3020 
X0ET3030 
XOET3040 
XDET3050 
XDET3060 
XDET3070 
XDET3080 
XDET3090 
XOET3100 
XDET3110 
X0ET3120 
XDET3130 
X0ET3140 
X0ET3150 
XDET3160 
X0ET3170 
XDET3180 
X0ET3190 
X0ET32C0 
X0ET3210 
X0ET3220 
X0ET3230 
X0ET3240 
X0ET3250 
XDET3260 
XDET3270 
XDET3280 
MXDET3290 
MXDET33C0 
MXDET3310 
X0ET3320 
X0ET3330 
X0ET3340 
XDET3350 
X0ET3360 
XDET3370 
XDET3380 
XDET3390 
XDET3400 
XDET3410 
X0ET3420 
XDET3430 
XDET3440 
XDET3450 
XDET3460 
XDET3470 
X0ET3480 
XDET3490 
XOET3500 
XDET3510 
XDET3520 
XDET3530 
X0ET3540 
XDET3550 
XDET3560 
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STA 


T163 




STA 


T164 




CLA 


LN 




STO 


Til 




STD 


T20 




STD 


T37 




STO 


T121 




STO 


T139 




STO 


T142 




SUB 


=01CGCOOO 




STD 


T198 




STO 


T304 


T298 


NOP 






LXD 


= 0,4 




CLA 


=01000000 


T301 


STO 


t4 E,4 




ADO 


=01CCC0C0 




TXI 


T304 f 4,l 


T304 


TXL 


T301,4,LN-1 


T305 


SXD 


REG12 f i 




SXA 


REG12,2 




LDC 


A, 4 




SXD 


A, 4 




SXD 


AKK,4 




LOC 


B,4 




SXD 


B,4 




CLA 


=01000000 




STO 


K 




ADD 


=0100CCC0 




STO 


KP1 




STZ 


K#l 




STZ 


KW1N 




CLA 


LM 




STD 


T53 




CLA 


N 




STD 


T18 




STD 


T34 




STD 


T35 




STD 


T50 




STD 


T51 




STD 


Till 




STD 


T112 




STD 


T118 




STD 


T119 




STD 


T133 




STD 


T134 




STD 


T205 




STO 


T228 




STD 


T229 




LDC 


N,4 




SXD 


T195,4 




CLA 


8 




STO 


SAVE 




CLA 


SPILL 




STO 


8 




TRA 


Tl 


T343 


STO 


N 




STQ 


LN 




SXD 


Tl-2,4 




CLA 


TRA1 



TRANSFER TO T305 FOR XOETRM 



FILL ARRAY E 



ENTRY FOR XDETRM 



XDET3570 
XDET3580 
XDET3590 
XDET3600 
XDET3610 
XDET3620 
XDET3630 
XDET3640 
XDET3650 
XDET3660 
XDET3670 
XDET3680 
XDET3690 
XDET3700 
XDET3710 
XDET3720 
XDET3730 
XDET3740 
XDET3750 
XDET3760 
XDET3770 
XDET3780 
XDET3790 
XDET38C0 
XDET3810 
XDET3820 
X0ET3830 
XDET3840 
XDET3850 
XDET3860 
XDET3870 
X0ET388O 
X0ET3890 
XDET39C0 
X0ET3910 
XDET3920 
XDET3930 
XDET3940 
X0ET3950 
XDET3960 
XDET3970 
XDET3980 
XDET3990 
X0ET40C0 
XDET4010 
XDET4020 
X0ET4030 
XDET4040 
X0ET4050 
X0ET4060 
X0ET4070 
XDET4080 
XDET4090 
XDET4100 
X0ET4110 
XDET4120 
XDET4130 
X0ET4140 
XDET4150 
XDET4160 



382 





STO 


T38 




CLA 


TRA2 




STO 


T77 




CLA 


TRA3 




STO 


T122 




CLA 


TRA4 




STO 


T165 




CLA 


TRA5 




STO 


T298 




CLA 


-5,4 




ALS 


18 




STD 


A 




CLA 


-3,4 




TRA 


T280 




REM 




TRAl 


TRA 


T55 


TRA2 


TRA 


T85 


TRA3 


TRA 


T136 


TRA4 


TRA 


T242 


TRA5 


TRA 


T305 


A 


PIE 




AKK 


PZE 




AKQ 


PZE 




B 


PZE 




El 


PZE 




E2 


PZE 




E3 


PZE 




E4 


PZE 




G 


PZE 




I 


PZE 




J 


PZE 




K 


PZE 




KM1 


PZE 




KM1N 


PZE 




KP1 


PZE 




LM 


PZE 




LN 


PZE 




N 


PZE 




REG12 


PZE 




SAVE 


PZE 




SPILL 


TRA 


TEST 


TMP 


PZE 




TEST 


ST I 


TMP 




LDI 







LET 


4 




TRA 


OVER 




LFT 


2 




CLM 






XCA 






LFT 


1 




CLM 






XCA 






LOI 


TMP 




TRA* 





OVER 


LDI 


TMP 




TRA 


T249 


XSIMEQ 


SYN 


T254 


XOETRM 


SYN 


T343 




COMMON 


•206 


COMMON 


COMMON 


1 



THIRD ARGUMENT (A) 



FOURTH ARGUMENT (D) 



-A 
-A+CK-1HN+1) 



-B 



STAGE OF REDUCTION 

K-l 

(K-i)N 

K+l 



CONTENTS OF LOCATION 8 

MODIFIED TREATMENT OF UNDERFLOWS 

CONTENTS OF INDICATORS 



SKIPPED IF UNDERFLOW 
SKIPPED IF ONLY MQ UNDERFLOW 

SKIPPED IF ONLY AC UNDERFLOW 



XDET4170 
XDET4180 
XDET4190 
X0ET4200 
XDET4210 
XDET4220 
XDET4230 
XDET4240 
XDET4250 
X0ET4260 
XDET4270 
XDET4280 
XDET4290 
XDET4300 
XDET4310 
XDET4320 
XDET4330 
XDET4340 
XDET4350 
XDET4360 
XDET4370 
XDET4380 
XDET4390 
XDET44C0 
XDET4410 
XDET4420 
XDET4430 
XDET4440 
X0ET4450 
XDET4460 
XDET4470 
XDET4480 
XDET4490 
XDET4500 
XDET4510 
XDET4520 
XDET4530 
XDET4540 
XDET4550 
XDET4560 
XDET4580 
X0ET4590 
XDET46C0 
XDET4610 
XDET4620 
X0ET4630 
X0ET4640 
XDET4650 
XDET4660 
X0ET4670 
XDET4680 
XDET4690 
XDET4700 
XDET4710 
XDET4720 
X0ET4730 
XDET4740 
XDET4750 
XDET4760 
XDET4770 



END 



END OF FILE 



XDET4780 



Appendix C 
SEQUENTIAL LISTING OF PARAMETERS AND CODEWORDS 



SEQUENTIAL LISTING OF PARAMETERS AND CODEWORDS 



Common Location 



Name 



1» System parameters 




77305 


CHECK 


77304 


NMAX 


77303 


INORM 


77302 


ISOLV 


77301 


ISCAN 


77277 


IMOD 


77276 


NXFIL 


77275 


ICONT 


77274 


ISUCC 


77272 


TOP 


77271 


Nl 


77270 


NL 


77267 


NT 


77266 


NREQ 


77265 


TN 


77264 


LFILE 


77263 


TOLER 


77262 


IPRG 


77261 


IRST 


77260 


IRLD 


77257 


IRPR 


77256 


NT APE 


77251 


NXFILE 



Refer to Section 

5.2.1 
5.2,2 
5.2.1 
5.2.1 
5.2.1 
5.2.1 
5o2.3 
5.2.1 
5.2.1 
5.2.2 
5.2.2 
5.2.2 
5.2.2 
5.2.2 
5.2.3 
5.2.3 
5.2.4 
5.2.1 
5.2.1 
5.2.1 
5.2.1 
5.2.3 
5.2.3 
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Appendix C 


Common Location 


Name 


Refer to Section 


2. Problem parameters 






77273 


NJ 


5.3,2 


77222 


NB 


5.3,2 


77221 


NDAT 


5,3,2 


77220 


ID 


5,3,1 


77217 


JF 


5,3.2 


77216 


NSQ 


5,3,4 


77215 


NCORD 


5,3.2 


77214 


IMETH 


5,3,1 


77213 


NLDS 


5,3.2 


77212 


NFJS 


5.3.2 


77211 


NSTV 


5,3,4 


77210 


NMEMV 


5,3o4 


77207 


IPSI 


5,3,6 


77206 


NMR 


5,3,2 


77205 


NJR 


5,3,2 


77204 


ISODG 


5.3.7 


77203 


NDSQ 


5.3.4 


77202 


NDJ 


5.3.4 


77201 


IXX 


5,3.7 


77200 


NPR 


5,3.7 


77177 


NBB 


5,3,7 


77176 


NFJSI 


5,3.4 


77175 


JJC 


5,3,5 


77174 


JDC 


5,3.5 


77173 


JMIC " 


5.3,5 


77172 


JMPC 


5.3.5 


77171 


JLD 


5.3.5 


77170 


JEXTN 


5,3.3 


77167 


MEXTN 


5,3,3 


77166 


LEXTN 


5,3.3 
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Common Location 

77165 

77164 

77163 

77162 

77161 

77160 

77157 

77156 
3o Codewords 

77151 

77150 

77147 

77146 

77145 

77144 

77143 

77142 

77141 

77140 

77137 

77136 

77135 

77133 

77132 

77131 

77130 

77127 

77126 



77 
77 



125) 
114) 



77113 



Name 
JLC 
NLDSI 
IYOUNG 
ISHEAR 
IEXPAN 
IDENS 
NBNEW 
NLDG 

NAME 

KXYZ 

KJREL 

JPLS 

JMIN 

MTYP 

KPSI 

MEMB 

LOADS 

MODN 

KS 

KMKST 

KSTDB 

KPPLS 

KPMNS 

KUV 

KPPRI 

KR 

KSAVE 

KSRTCH 

KDIAG 



Refer to Section 
5o3o5 
5.3.2 
5,3.6 
5,3,6 
5.3.6 
5„3o6 
5 3o7 
5,3.6 

5.4.1 
5,4,2 
5.4,2 
5.4,3 
5.4.3 
5.4.3 
5o4 4 
5.4.3 
5.4.5 
5.4.1 
5,4.6 
5,4,6 
5 4 6 
5,4,8 
5,4.8 
5,4,8 
5,4,8 
5.4.8 
5,4,9 

5.4,9 

5.4.7 
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Common Location 
77112 
77111 
77107 
77106 
77105 
77104 
77103 
77102 
77101 
77100 
77077 
77076 
77075 
77074 
77073 
77072 
77071 
77070 
77067 



Name 
KOFDG 
IOFDG 
MEGA0 
JEXT 
JINT 
IFDT 
KMEGA 
KPDBP 
JTYP 
MTYP1 
KB 

MLOAD 
JLOAD 
KATR 
LINT 
KYOUNG 
KSHEAR 
KEXPAN 
KDENS 



Appendix C 

Refer to Section 
5.4.7 
5.4.7 
5.4.7 
5 4.2 
5.4.2 
5.4.7 
5.4.6 
5.4.8 
5.4.2 
5.4.3 
5.4.7 
5.4.5 
5.4.5 
5.4.2 
5.4.5 
5.4.4 
5.4.4 
5.4.4 
5,4.4 



